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VORWORT 



64 Programme fur den Commodore-64 — 64 Stuck, das ist eine statt- 
liche Zahl. 

Ich habe mir alle Miihe gegeben, Ihnen das zu bieten, was Sie sich von 
einer solchen Programmsammlung erwarten. Viele niitzliche Programme 
fiirs Biiro und viel fiir die Freizeit. Auch habe ich einige Moduln zu- 
sammengestellt, die Sie fiir Ihre eigenen Programme gut verwenden und 
dort einbauen konnen. Dazu gehoren z. B. Eingabemaske, Rand, 
graphische Darstellungen usw. 

Dem Schiiler sollen die Mathematikprogramme eine Hilfe sein. 

Auch die Kleinen haben wir nicht vergessen. Fur Sie sind viele lustige 
Programme enthalten, die auch einen gewissen erzieherischen und lehr- 
reichen Nebeneffekt aufweisen. 

Ich wiinsche Ihnen, lieber Leser, viel SpaB mit den Programmen und 
Ihrem Commodore-64. 



Holzkirchen, Fruhjahr 1984 Der Verfasser 
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Bitte unbedingt lesen ! 
Bitte diese Informationen vor Verwendung des Buches lesen ! 

1 . Viele Leser hatten Schwierigkeiten mit der Identifizierung der 
Cursorcontrollzeichen. 

Programmierung der Cursor-Tasten 

Wenn Cursor-Bewegungen oder Bildschirm-Loschen innerhalb einer 
PRINT-Anweisung vorkommen, so wird das angegebene Grafikzeichen 
auf dem Bildschirm ausgegeben. 

Beispiel: 

10 PRINT "SHIFT HOME" 

erzeugt ein Inverses Herzchen, als Zeichen, daB der Bildschirm geloscht 
wird. 

Beispiel: Seite60 

Zeile 2 beginnt mit Bildschirm-Loschen und Cursor-Bewegung nach 

gnten. 



Hier noch einmal einige Beispiele: 



10- PRINT" WWW" 
20 PRINT"3HX3" 

39 PRINT'-WiiW" 

40 PR I NT "■■■■■I" 
50 PRINT"WWWWW" 
60 PRINT":! I III" 

79 PR I NT "«*«««" 

80 PRINT 



REM CURSOR HOME 
REM CLEAR HOME 
REM CURSOR NflCH RECHTS 
REM CURSOR NflCH LINKS 
REM CURSOR NflCH UNTEN 
REM CURSOR NflCH OBEN 
REM <CTRL>-<RVS 0N> 
REM <CTRL>-<RVS 0FF> 



Es wurden jeweils funf der Zeichen nebeneinander eingegeben. Teil- 
weise werden auch die Steuerzeichen fur die Farben verwendet. Z. B. 
auf Seite 176, Zeile 60. Hier wird nach Input Clear Home und <CTRL>— 
<BLU> gegeben. 

Das Zeichen DEL ist ahnlich wie Cursor nach links jedoch in die hori- 
zontale Achse gespiegelt. Siehe hierzu Liste der Cursorkontrollzeichen. 

(Fortsetzung: siehe vor Seite 1) 



Zu diesem Buch 
Vor Beginn unbedingt lesen ! 

Bei der Erstellung dieses Buches hat der Verfasser besondere Sorgfalt 
walten lassen. Alle Programme wurden getestet und haben auf einem 
Commodore-64 mit GP-100VC-Drucker gearbeitet. 

Sollten sich trotzdem Fehler eingeschlichen haben, schreiben Sie uns 
und geben Sie uns eine genaue Beschreibung Ihres Problems. Aussagen 
wie "Programm ist defekt" oder "Programm arbeitet nicht" helfen uns 
in keiner Weise, Ihnen weiterzuhelfen. Schildem Sie deshalb den Sach- 
verhalt genau. Oft schleichen Sich auch Fehler bei der Eingabe in den 
Computer ein. Hier empfehlen wir das Auslisten auf einem Drucker mit 
anschlieBendem Vergleich mit dem Listing im Buche. 

Hat man keinen Drucker, sollte man eine zweite Person zum Vergleichen 
heranziehen. Einer liest auf dem Bildschirm, der zweite vergleicht mit 
dem gedruckten Listing. Unsere Erfahrung hat gezeigt, daS bei einer 
Fehlersuche auf dem Bildschirm ein Fehler immer wieder ubersehen 
wird. 

Da die ausgedruckten Cursorkontrollzeichen oft schwer lesbar sind, 
haben wir nachfolgend eine Liste zusammengestellt, die Ihnen die Identi- 
fikation erleichtert. Fur die Identifikation der Leerzeichen, verwenden 
Sie das provisorische Lineal, welches Sie nachfolgend finden. Kopieren 
Sie es oder schneiden Sie es aus. 

iiiliiiuiiiiUMiiiiiiiiiiriii 

1 234567390 1 £34567890 1 234567890 

Legen Sie dieses "Lineal" zwischen die Anfiihrungszeichen und messen 
Sie die Anzahl ab. Gerade bei Cursorsteuerzeichen, konnen, wenn nur 
eine Bewegung in eine Richtung fehlt, ganze Bildverschiebungen auf- 
treten. 

Wenn Ihnen die blaue Bildschirmfarbe des Commodore 64 nicht passt, 
sollte immer mit POKE 53281,7:POKE53280,3:PRINTCHRS(144) auf 
eineaugenfreundliche Darstellung umschalten. 

Wirwiinschen Ihnen bei Ihren Programmierarbeiten viel Erfolg. 



Liste der Cursorkontrollzeichen 



ASCII PRINTS DESCRIPTION 

146 SS Reverse Aus Use CTRL key 

18 lEU Reverse Ein Use CTRL key 



RUN / STOP 



3 m 

147 1^1 Bildschirm loschen 



19 |S| Cursor nach oben links 



145 


00 


Cursor nach oben 


17 


(5) 


Cursor nach unten 


157 


■1 


Cursor nach links 


29 


□1 


Cursor nach rechts 


148 


II 


Insert 



Ubrigens konnen Sie die Biicher: 

Best.-Nr. 128 Programmieren mit dem CBM 
Best.-Nr. 130 Programmierbeispiele fur CBM 
Best.-Nr. 31 57 Praktische BASIC-Programme 



29,80 DM 
19,80 DM 
39,00 DM 



auch gutals Programmquellen fur Ihren Commodore 64 verwenden. Die 
Informationen in diesem Buch helfen Ihnen bei den Anpassungsarbeiten 
erheblich. 

Das System, auf wlechem wir die Programme aus diesem Buche getestet 
haben bestand aus: 

1 Commodore-64 (gekauft im Mai 1983) 

2. Diskettenstation 1541 

1 Farbfernseher + 1 Monitor 

1 Drucker GP100VC von Commodore, Device 4 eingestellt. 



Neue Produkte fir Ihren 



r a aiiira una una a a he? es 

«E3 QoaaaacinBQann ^s I 



a a a u ii a ess 

a c=s oacaaoaziBBfi no ks :■. 



Best.-Nr. Titel Preis /DM 

4950 Spielepaket I fiir Commodore 64 C/D 79,- 

4951 Spielepaket II fur Commodore 64 C/D 79, - 

4952 Programmieren in Maschinensprache C/D 79, — 

4953 BISIPAK 64 - Mailing List, Inventory, Fakturierung D 299, - 

4954 Fakturierung + Text C/D 99, — 

4955 Sound, Grafik, Bewegung, Demos, Hilfsprogramme 

und Beispiel C/D 79, - 

4956 Mathematikprogramme C/D 79, — 
4960 FORTH fiir VC-64 D 299, - 



4961 Superinventory 

4962 Super Mailinglist 

4963 Auftragsabwicklung, Fakturierung, Lagerverwaltung, 
Mailing (integriert) 

4964 MACROFIRE - Editor Assembler, professionell 

4965 BLIZTEXT — Professionelle Textverarbeitung 
4970 Externe Experimentierplatine fur Erweiterungsport 

4980 Adresskartei-64 

4981 Spielpaket-64 

4982 Textverarbeitung-64 

4983 Mini-Assembler-64 

4984 Maschinensprachenmonitor— 64 

4985 Disassembler 

4986 Busplatine f. vier ext. Experimentierplatinen (Bausatz) 
4847 Stecker fur User Port 

4987 Stecker fur Erweiterungsport 



D 


199,- 


D 


199,- 


D 


489,- 


D 


199, - 


D 


199,- 




39,- 


C 


49,- 


C 


49,- 


C 


99,- 


C 


49,- 


C 


39,80 


C 


29,80 




99,- 




19,80 




19,80 



Bticher 



Best.-Nr. Titel Preis / DM 

147 Beherrschen Sie Ihren Commodore-64 19,80 

145 64 Programme fur den Commodore-64 39,00 
124 Programmieren in Maschinensprache mit dem C-64 29,80 

146 Hardware Erweiterungen fur den Commodore-64 39,00 
187 Mehr als 29 Programme fur den Commodore-64 29,80 
113 BASIC-Programmier-Handbuch m. BASIC-Einsteiger Kurs 19,80 

Bticher in englischer Sprache 

183 More on the Sixtyfour (64) 39,00 
182 The Great Book of Games Vol. I - 46 Games for the C-64 29,80 

184 How to Program your C-64 i. 6502/10 Machinelanguage 29,80 
186 Small Business Programs for the Commodore-64 49,00 

Angebote freibleibend. Zwischenverkauf vorbehalten. 



Allc Proiramme aas 

diesem Biche 

■■f Diskette 




Fur denjenigen, der nicht die Zeit und Muse hat, die Programme ein- 
zugeben, halten wir zwei Disketten bereit, die alle Programme aus 
diesem Buche enthalten. 

Wir senden Ihnen diese gerne gegen Vorauszahlung von 99,— DM incl. 
Versand und Verpackung zu. 



Verwenden Sie dieses Blatt ais Bestellschein. 



Name 



Vorname 



StraBe 



PLZ Ort 

□ Ich bestelle 2 Diskettenseiten, voll mit Programmen zum Buch 
#145 zu DM 99,— incl. Porto und Verpackung. Den Betrag von 
99- DM habe ich heute auf Ihr Postscheck-Kto. Mchn 15994-807 
iiberwiesen. 

□ Bitte liefern Sie per Nachnahme. Hier kommen noch Postgebiihren in 
Hohe von ca. 6,50 DM hinzu. 



Datum Unterschrift (f. Jugendliche unter 18 Jahre der Erziehungsberechtigte) 



Bitte unbedingt lesen ! 
Bitte diese Informationen vor Verwendung des Buches lesen ! 

2. Auf Seite 179muBesheiBen: 

POKE 775,167 (aufheben des Schutzes) und nicht POKE 775,199. 
Sie konnen dies auch vorher mit ?PEEK(775) leicht erkennen. 

3. Die Adressenliste ab Seite 15 muB so eingegeben werden, wie Sie 
abgedruckt wurde. Keine Anderungen irgendwo im Listing bitte ! 
Wer mit der Eingabe nicht ganz klar kommt, kann dieses Programm 
unter der Best.-Nr. 4980 fur DM 49- auf Disk oder Cassette vom 
Verlag beziehen. 



■=;i-.r r.np 14 

11.11.1983 
HOLZIHGER WERNER 

OBER I NGEH I UER 22.4.1 937 
WESTWEG 3 4711 

8150 HOLZKIRCHEN BflV 88024 
ELKTROMEISTER 
C0DE1 
C0D2 



Beispiel eines Ausdruckes 



Textverarbeitung 



Textverarbeitung 

Fur den Commodore 64 haben wir fiir Sie einen einfachen jedoch recht 
leistungsfahigen Wortprozessor entwickelt. Er ist komplett in BASIC 
geschrieben und arbeitet mit Cassette oder Diskette. Er kann in 
der angegebenen Version ca. 32 x 32 Zeichen pro File verarbeiten. Dies 
ist ca. 1 Seite Text. Durch Abandern der Variablendimensionierung 
TS(32) in Zeile 100 laBt sich die Kapazitat fiir Text vergroBern. 

Das Textverarbeitungsprogramm kann Texte auf Cassette speichern, 
die dann spater wieder in den Rechner geladen werden konnen. Hat 
man das Programm in den Speicher geladen, kann es mit RUN ge- 
startet werden (Shift Lock Taste heraus auf GroBschreibung gestellt). 
Wir erhalten ein Menu, welches uns sechs Funktionen zur Auswahl 
anbietet. Nach dem Neustart mit RUN immer nur N fiir (neuen Text 
eingeben) eingebenl 

Dann erscheint in der linken oberen Ecke ein blinkender Cursor. 
Drucken Sie jetzt die Shift Lock Taste und geben Sie den Text ein. Mit 
meinem Commodore 64 und dem VC-1515 Drucker war nur GroB- 
schreibung moglich. 

Bei der Eingabe des Textes verwenden Sie bitte nicht die RETURN- 
Taste. Auch die Cursor-Tasten diirfen nicht gedriickt werden I 

Die DEL-Taste erlaubt riickwarts zu loschen. Die SPACE-Taste dient 
zum Vorwartsbewegen des Cursors. 

Ist der Text eingegeben, sollte man noch eine Leerzeile (mind. 40 Leer- 
zeichen mit der Leertaste anfiigen. Dann wird die Shift Lock Taste 
gelost und durch Drucken der £ Taste ins Menu zuriickgesprungen. 
Jetzt konnen wir uns den Text einmal auf dem Bildschirm durch 
Drucken der B-Taste ansehen. Wenn falsche Eingaben gemacht wurden, 
oder bei der Editierung die Vorschriften nicht genau eingehalten 

1 



wurden, kann es hier zu Fehlermeldungen kommen und der gesamte 
Text verlorengehen. 

Aus diesem Grunde empfehlen wir sofort nach Beendigung der Text- 
eingabe den Text einmal auf Cassette abzuspeichern. Dann erst mit 
Anderungen beginnen. 

Der Editiervorgang 

Diese Funktion kann iiber die Eingabe von E angewahlt werden. Es wird 
immer nur eine Zeile oder ein entsprechender Textteil angezeigt. Jetzt 
kann mit den Cursortasten wieder gearbeitet werden. Die Shift Lock 
Taste muB gelost sein. 

Wenn man ein Zeichen (Buchstaben) andern mochte, geht man mit dem 
Cursor iiber das gewiinschte Zeichen und druckt die Taste Pfeil nach 
oben ("t"). 

Der Cursor erscheint dann unter der Zeile und man kann jetzt das neue 
Zeichen eingeben. Bevor Sie jetzt jedoch ein Zeichen eingeben konnen, 
miissen Sie die Shift Lock Taste erst wieder driicken. Nachdem das 
Zeichen eingegeben ist, muB die Shift Lock Taste wieder gelost werden, 
damit man durch Drucken der £ Taste wieder zuriick in den Text 
springen kann. Auf die gleiche Weise wie ein Zeichen iiberschrieben 
werden kann, kann auch Text eingefiigt werden. 

Dies 1st am besten an einem Beispiel gezeigt. 
Angenommen wir haben den Satz: 

DflS IST TEXT IM WORTPRQZESSOR 
t 
hierher mit dem Cursor 

Wir wollen den neuen Text Commodore 64 einfiigen. Wir gehen in den 
EDIT Modus mit D und es erscheint der Text oben im Bildschirm. Mit 
dem Cursor gehen wir an die Stelle im Text und driicken die Pfeil 
nach oben Taste. Unser Cursor steht jetzt unter unserem Text am 
Zeilenanfang. Wir miissen jetzt die Shift Lock Taste driicken und folgen- 
des eingeben: 

SPACE COMMODORE-64 SPACE 



Achtung! 

Bei Zahlen muB die Shift Lock Taste wieder gelost sein. Dann lassen wir 
die Shift Lock Taste gelost und driicken wieder die £ Taste. Jetzt ist 
der neue Text eingefiigt. 

DflS IST TEXT IM C0MMQD0RE-64 
W0RTPR0ZES30R 



Text kann auch geloscht werden. Angenommen wir wollen den Teil 
"Commodore 64" wieder loschen. Wir gehen mit dem Cursor an das 
Ende des Wortes Commodore— 64 und driicken die DEL Taste. Die 4 
verschwindet, jetzt gehen wir mit dem Cursor ein Zeichen weiter 
zuriick und loschen dieses usw. 

Wenn man Text an einen vorhanden Text einfiigen will, geht man im 
Editier Modus mit dem Cursor an das Ende des vorhandenen Textes 
ung gibt auf die Frage "FERTIG ?" NEIN ein und nicht JA. Jetzt wird 
der Bildschirm geloscht und der jetzt neu geschriebene Text an den 
vorhergehenden Text angehangt. Antwortet man mit "J" fur Ja, kommt 
man ins Menue zuriick. 

Der Ausdruck auf dem Bildschirm und Drucker ist insofern etwas 
kompliziert, da man auf die Frage Zeichen/Zeile niemals kleinere 
Werte als das langste vorkommende Wort eingeben darf. Eine Fehler- 
meldung zerstort somit Ihren gesamten Text. GroBer 30 — 40 Zeichen/ 
Zeile bringt selten Probleme. Auch mit dem Drucker VC-1515 kann es 
Schwierigkeiten geben. Hangt sich das System auf, Drucker ofters 
Ein- und Ausschalten und darauf achten, daB das Textverarbeitungs- 
programm nicht abgebrochen wird und der Text verloren geht. 



Mit dem VC-1515 haben wir mit diesem Programm nur GroBbuch- 
staben auf dem Drucker ausgeben konnen. Evtl. konnen Sie dies bei 
Ihrem Drucker selbst auf Kleinbuchstaben umandem. Bei der Eingabe 
von Text muB die Shift Lock Taste immer richtig stehen! Achtung ! 
Fehler konnen jedoch in diesem Modus (neuen Text eingeben) leicht 
iiber die DEL-Taste korregiert werden. 

Nachfolgend noch zwei Probeausdrucke mit verschiedenen Zeichen/ 

3 



Zeile. 



DAS 1ST EIH TEST FUER DEN 
WORTPROZESSOR FUER DEN COMMODORE 
S4.DIESER KLEINE EINFRCHE 
WORTPROZESSOR WURDE IN ERSTER 
LINIE FUER DEN HEIM UND 
HOBBVEEREICH ENTWICKELT.SIE ALS 
KUNDE ERHALTEN DEN GESAMTEN 
QUELLTEXT IN BASIC UND KOENNEN 
SICH DIESES PROGRAMM FUER DEN 
EIGENEN BEDARF NOCH AUSBAUEN UND 
ERWEITERN.DAS PROGRAMM ERLAUBT 
I HNEN KLEINE TEXTE EINZUGEBEN,ZU 
KORREGIEREN UND WENN GEUUENSCHT 
RUF CASSETTE ABZULEGEN.ES BESTEHT 
AUCH DIE MOEGLICHKEIT AUF EINEM 
DRUCKER AUSZUGEBN. 



DAS 1ST EIN TEST FUER DEN WORTPROZESSOR 
FUER DEN COMMODORE 64.DIESER KLEINE 
EINFRCHE WORTPROZESSOR WURDE IN ERSTER 
LINIE FUER DEN HEIM UND HOBBYBEREICH 
ENTWICKELT.SIE ALS KUNDE ERHALTEN DEN 
GESAMTEN QUELLTEXT IN BASIC UND KOENNEN 
SICH DIESES PROGRAMM FUER DEN EIGENEN 
BEDARF NOCH AUSBAUEN UND ERWEITERN.DAS 
PROGRAMM ERLAUBT I MEN KLEINE TEXTE 

Es wird empfohlen das Programm zuerst mit einem Test-Text richtig 
auszuprobieren. Erst wenn man das Programm voll beherrscht, sollte 
man mit einer praktischen Anwendung beginnen. 



Diskettenversion 

100 DIM T*<32> : P0KE53272,23:Z$=" "=T$= 

ii ii 

110 PRINT'TJS TEXTVERARBEITUNG § "FRE<0>"BVTE FREIMKWWW 

120 PRINT"WOLLEN SIE TEXT 8E1DITIEREN? " 

4 



130 PRINTSPC<15>" 3LSWEN VON DISK. 

148 PRINTSPC<15>" SMFEICHERN flUF DISK. 

150 PRINTSPCaSV' SA1USDRUCKEN (4,4) 

160 PRINTSPC<15>" SB1ILDSCHIRMAUSGABE 

170 X*=" ODER frHEUEN TEXT EINGEBEN":GOSUB240:I 

FC*="E"GOTO630 

180 IFC*="L"G0T0955 

190 IFC*="S"GOTO1040 

200 IFC*="fl"GOTO700 

210 IFC*="N"GOTO670 

220 IFC*O"B"GOTO110 

230 PT=0 : LL=20 : K=40 : N=K : S*= " " : GOTO800 

240 PRINTX$+"?":GOTO260 

250 PRINT"Ma LEERTASTE BITTE " 

260 POKE 1 98 , = WA 1 T 1 98 , 1 = GETC* : PR I NT " T ; = RETURN 

278 X*="":J=0:REM *CASE REVERSAL* 

280 GETC$:IFC*=""THENPRINT"i"CHR*<157.V' "CHR*<157>; :G0T02 

80 

290 IFC*="£"THENRETURN 

380 C=ASC<C*> : IFC>64ANDC<91THENC=C+256 

310 IFC>127THENC=C-128 

320 L=LEN<X$> : IFO13ORC=17ORC=18ORC=29OR<C=2&ANBL=0>GOTO2 

80 

338 IFC=20GOTO378 

340 C*=CHR*<C>:PRINTC*.-X*=X*+C*:IFC=34THENPRINTC*"I! II" .= 

350 IFK170GOTO288 

360 RETURN 

370 IFL=1THENX*="":GOTO390 

380 X*=LEFT*<X#..L-1> 

390 PRINTCHR$<C>;:GOTO280 

400 1=0: REM EDITIERLOGIG 

410 PRINT'S" : IFKTHENPRINT"na"RIGHT$<T$<K-l ) , 20) 

420 PRINT :PRINTX*-LL=LEN<X*>-1 

430 GETC* = L= 1 1 04+ 1 = POKEL , PEEK < L ) + 1 28 : 1 FC*= " t" G0T0578 

440 IFC*="M"THENI=I+1 

450 IFC*="TANDI>39THENI=I-40 

460 IFC*="W"THENI=I+40 

470 IFC*="a"THENI*0 

480 IFC$*""GOTO520 

490 U=ASC(C*):IFU=13THENI=191 

580 IFU=20THENGOSUB540=GOTO410 

510 IFC*="II"THENI=I-1 : IFK0THENI=0 

528 POKEL, PEEK<L>-128-' IFDLLTHENRETURH 



530 FORJs»0TO9:NEXTJ:GOTO430 

549 L*= " " = I F I THENL$=LEFT* ( X$ , I > 

550 R*= " " : I F I <LLTHENR*=R I GHT* < X* , LL- 1 ) 
560 X*=L*+R* : RETURN 

570 GOSUB540 = GOSUB270 

580 IFLEN<L*)+LEN<X*>+LEN<R*X171THENX*=L*+X*+R*:G0T04ie 

590 FOR J=32T0K+2STEP- 1 : T* < J > =Tf < J- 1 ) : NEXT J 

600 J=LEN<R*>+LEN<X$>-170 = IFJ>0THENL*=L*+LEFT*<X*, J) : X*=R 

IGHT*<X*,LEN<X$W> 

610 T*<K+l>=X*+R*:X$=L* : G0T04ie 

620 POKE 1 .. 23 ■' POKE 1 62 , ■ Wft I T 1 62 , 1 6 ■■ RETURN 

630 REM ** EBITIER PROGRflMM ** 

640 FORK=0TO31 : IFT*<K)X""THENX*=T$<K> :GOSUB400:Tf (K>=X*: 

NEXTK:OOTO110 

650 PRINT"3!r?IDfiS 1ST DPS ENDE. " ^^"SFERTIO ? ":GOSUB240: 

IFC*="J"GOTO110 

662 G0T068G 

670 K=0"-REM ** SCHREIB PROGRflMM ** 

680 X*=T*(K> : GOSUB270 : T$<K>=X$ : IFC*0"£"flNDK<31THENK=K+l : 

G0T0688 

69% FORJ=K+ 1 T032 ^ T* < J ) = " " : NEXT J : GOTO 1 1 

700 REM **PRINT LOG IK** 

710 X*="flNZflHL LEERZEICHEN IM TAB" :.G0SUB249 

720 T*=" «":IFVflL(C$)THENT*=LEFT*(Z*,VflL(C*>) 

730 PT=0:X$="flUF 3B1ILDSCHIRM ODER SMRUCKER" :GOSUB240: IF 

C*="B"THENPT=1 

740 nS=0:X$="BOPPELTER ZEILENP.BSTRNB" :GOSUB240: IFC$="V"TH 

ENBS=1 

750 N=40*a+PT) = IFPTTHEN0PEN4, 4 : G0T0770 

760 INPUT"WIEVIELE ZEILEN/BLflTT'MLL 

770 INPUT"*WIE VIELE ZEICHEN/ZEILE";K:PRINT !, T 

780 H= < PT+ 1 ) *40 •■ I FK>NTHENPR I NT " MZU V I LE ZE I CHENM" : G0T0770 

790 S*= " " = I FK<N- 1 THENS*=LEFT* <. Z$ , < N-K > /2 > 

800 TF=0 = L= 1 : X*= " " = FOR J=0T03 1 : X*=X*+T$ < J > 

310 IFTFTHENX$=T*+X$:TF=0 

820 M=LEN(X$> : IFflSC<X*>=32THENX*=MID*0#, 2> : G0T0820 

330 IFX31PNBM<KTHENNEXT.J 

840 FORU=lTOK = IFMIBf <X*, U, 1 )=" t"THENTF=l •■ G0T0870 

850 NEXTU:IFJ=31flNBM<=KGOTO940 

860 FORU=KTO 1 STEP- 1 = I FM I D* < X* , U , 1 ) O " " THENNEXTU; PR I NT " 3W 

*%mm%tmimtitom <—ZUWENIG": GOTO 770 

870 L*= " " : I FU> 1 THENL$=LEFT$ < X$ , U~ 1 > 
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880 R*= " " : I FLKMTHENR*=R I GHT* < X* , M-U > 

890 IFDSAND<PT=0)THENL**L*+CHR*< 13) 

900 IFDSANDPTTHENL$=L$+CHR*a2> 

910 X*=R*= IFPTTHENPRINT#4,CHR*a5>S$+L*:G0T0318 

928 PRINTS*+L* : L=L+1+DS : IFL>LLTHENL=1 : G0SUB258 

930 GOTO810 

940 I FPTTHENPR I NT#4 , CHR* < 1 5 ) S*+X$ : CL0SE4 = GOTO 1 1 8 

950 PRINTS*+X*:GOSUB250:GOTO110 

955 REM 

960 0PEN2 ,8,2 , " <?0 : TEXT , S , R " 

970 J=0 

980 l=0:fl*=»" 

990 GET#2,C*:IFC$="£"THEN C$="" : GOTO 1822 

1000 A$=fl$+C$: 1=1+1 

1010 IF 1=32 THENT*<J>sfl*:J*J+l:QOTO980 

1020 GOTO 990 

1022 fl*=R*+C*: 1=1+1 

1024 T*<J)*fl* 

1030 CLOSE 2- GOTO 110 

1035 REM Z$=MID$<T$<,T>,Z/l> 

1048 REM 

1050 OPEN 2, 8, 2, "00 = TEXT, S,W" 

I860 FOR 1=0 TO 32 

1070 IF T*<D=""THEN GOTO 1188 

1088 PRINT#2,T*<I> 

1890 NEXT I 

1100 PRINT#2,"£": CLOSE 2 

1110 GOTO 118 

Cassettenversion 



160 DIM T*<32>:P0KE53272,23 : Z$=" ":T$= 

ii M 

110 PRINTS* TEXTVERflRBEITUNG ! "FRE<0)"BVTE FREIMMSMM 

120 PRINT"WOLLEN SIE TEXT 3EMITIEREN? " 

138 PRINTSPCC15)" 3L1RDEN VON CflSS. 

140 PRINTSPC<15>" SSS^EICHERN flUF CRSS. 

150 PRINTSPC<15)" fffflUSDRUCKEN <4,4) 

160 PRINTSPC<15>" SBIILDSCHIRMfiUSGRBE 

170 X*=" ODER SWKUEN TEXT EINGEBEN":GOSUB240:I 

FC*="E"GOTO630 
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590 FOR J=32T0K+2STEP- 1 = T* < J ) =T* < J- 1 ) = NEXT J 

600 J»LEN<R*)+LEN<X$)-170: IFJ>0THENL$*L*+LEFT*<X*, J) =X$=R 

IGHT$<X*,LEH<X$W> 

618 T* ( K+ 1 ) =X*+R* : X*=LI = G0T04 1 9 

620 POKEl,23:POKE162,0:UfiIT162,16-RETURN 

630 REM ** EDI TIER PROGRflMM ** 

648 FORK=0TO31 : IFTfOOX" "THENX*=T*<IO : GOSUB400 : T*<K)=XS : 

NEXTIOGOTOlie 

650 PRINT'TMMDRS 1ST DPS ENDE. " :X$=M!FERTIG ? ":GOSUB240= 

IFC$="J"GOTO110 

660 GOTO680 

67$ K=0:REN ** SCHREIB PROGRflMM *# 

689 X$=T$ (. K > : GOSUE270 : J$ < K > =)<$ ■ I FC*0 " £ " ANDKC3 1 THENK=K+ 1 : 
GOTO680 

690 FOR J=K+ 1 T032 = T t < J > = " " = NEXT J : GOTO 1 1 
700 REM **PRINT LOG IK** 

710 X*="RNZAHL LEERZEICHEN IM TAB" =GOSUB240 

720 T$= " I!" = I FVflL ( C* ) THENT*=LEFT$ ( Z* , VflL <X$) ) 

730 PT=0:X*= i, flUF SBSILDSCHIRM ODER SDH?UCKER" =GOSUB240: IF 

C*="B"THENPT=1 

740 DS=0:X$="DOPPELTER ZEILENABSTflND" :GQSUB240: IFC* : -"V"TH 

ENDS=1 

750 N=40*a+PT> = IFPTTHEN0PEH4, 4 = G0T0770 

760 I HPUT " W I EV I ELE ZE I LEN/BLATT " ; LL 

770 I HPUT" ft! IE VI ELE ZEICHEH/ZEILE";K:PRIHT : 'T 

780 N= ( PT+ 1 ) *40 = I FK>NTHENPR I NT " *EU V I LE ZE I CHENM" : GOTO770 

790 S$= " " : I FK<N- 1 THEHS$=LEFT$ < Z$ , < H-K > /2 ) 

800 TF=0 = L=l = X*=" " : F0RJ=0T031 : X*=X*+T*( J) 

810 IFTFTHENX*=T*+X*:TF=0 

820 M=LEN < X* ) ■ I FR3C < X* > =32THENX$=M I D* < X* , 2 > ; GOTO820 

830 I F J<3 1 RNDIKKTHENNEXT J 

840 FORU= 1 TOK : I FM I D$ < X* > U > 1 ) = " f " THENTF= 1 : G0T087S 

850 NEXTU= IFJ=31flNDM<=KGOTO940 

S60 FORU=KTO 1 STEP- 1 : 1 FM I B$ ( X$ , U , D O " " THENNEXTU : PR I NT " 3fi 

ZU WENIG" :GOTO770 

870 L$= " " : I FU> 1 THEHL$=LEFT* < X$ , U- i ) 

880 R$=" " = IFUCMTHENRf =RIGHT*<X* , M-U) 

890 I FDSflND < PT=0 ) THENL$=L*+CHR$ < 1 3 ) 

900 I FDSflNHPTTHENL$=L$+CHR$ (12) 

910 X*-R* = I FPTTHEHPR I h'T#4 > CHR$ < 1 5 > S*+L* : G0TQ8 1 Q 

920 PRINTS*+L* : L=L+1+DS = IFL>LLTHEHL=1 : G0SUB250 

930 GOTO310 
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946 IFPTTHENPRINT#4, CHR$< 15)S*'+X* = CL0SE4 : GOTO 1 18 
950 PRiNTS*+X*:GOSUB250:GOTO110 
?6Q OPEN1 
970 J=@ 

980 l=0:fl$="" 

990 GET#1,C* : IFC*="£"THEN C*= H " = GOTO 1022 

1000 R$=fi$+C$: 1=1+1 

1018 IF 1=32 THENT$<J)=fl$:J*J+l:GOTO980 

1026 GOTO 990 

1022 fl$=fi*+C$- 1=1+1 

1024 T*CJ)=R$ 

1030 CLOSE l^GOTO 110 

1048 INPITTBELIEBIGEN FILENflMEN <MRX 5 BUCHST) BITTE 

EINCEBEN";L* 

1058 OPEN l.Ll,L* 

i860 FOR 1=0 TO 32 

1078 IF T*a>=""THEN GOTO 1188 

1030 PRINT#1,T*(I>; 

1098 NEXT I 

1100 PRINT#1 /'£"• CLOSE 1 

1118 GOTO 118 

Herr Kiibler aus Dusseldorf hat dieses Textverarbeitungsprogramm 
weiter modif iziert und ist sehr zufrieden dam it. 

Fur GroB- und Kleinschreibung fugen Sie bitte folgende Zeile ein: 
28 POKE 53230,ll:POKE53281,ll:PRINTCHR*<5>CHR*a4)CHR*(3) 
Andern Sie folgende Zeilen: 
910 X*=R*:IFPTTHENPRINT#4, CHRJ<17^S*+L$:G0T0 810 

940 IFPTTHEN PRINT#4,CHR*<17),S$+X*:CL0SE4:G0T0 110 

Beschreibung: 

In Zeile 20 wird die Bildschirmfarbe (hier SCHWARZ) festgelegt. 
CHR8(5) schaltet die Zeichendarstellung auf "WEISS" (oder CHRS(3) 
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auf "GRUEN"), CHR$(14) schaltet auf Zeichensatz GroBVKIeinschrift 
und CHRS(8) blockiert die Shifttaste. 

Mit dieser Umstellung arbeitet das Programm auf dem Bildschirm mit 
GroB-/Kleinschrift. Um auch noch mit diesem Zeichensatz ausdrucken 
zu konnen, muB in den Zeilen 910 und 940 hinter PRIIMT#4 jeweils 
CHRS07) eingefiigt werden, damit der Drucker (hier SEIKOSHA GP 
100 VC) auf GroB-/Kleinschrift umgestellt wird. 

Wie Sie in Ihrer Beschreibung schon erwahnen, ist es anfangs unge- 
wohnt, mit dem Programm zu arbeiten, weil Kleinschrift bei gedruckter 
bzw. blockierter Shifttaste ausgegeben wird, im Normalzustand (unge- 
shiftet) nur GroBschrift gezeigt wird. 

Zum SchluB noch ein Tip: 

Damit das Programm nicht durch die STOP-TASTE unterbrochen wird, 

empfehle ich folgende Erganzung: 

Zeile 30 POKE 788,52 :REM STOPTASTENVERRIEGELUNG 

und POKE 788,49:END:REM:STOPTASTENENTRIEGELUNG fiir 
die Stoptastenentriegelung (Eingabe im Direktmodus). 

Bei Programmabbruch durch einen Fehler (z. B. Drucker nicht einge- 
schaltet) muB vor Befehlen wie LIST erst die Stoptaste durch POKE 
788,49 durch Eingabe im Direktmodus entriegelt werden. 

Herr Kiibler wunscht Ihnen mit dieser Umstellung viel Erfolg und ebenso 
zufriedenes Arbeiten wie bei ihm. 
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Adressenliste 

fur 
Commodore-64 



Adressenliste fiir Commodore-64 

Dies ist ein leistungsfahiges Programm zur Abspeicherung von perso- 
nellen Daten mit spezieller Speichermoglichkeit von Telefonnummern 
in komprimierter Form und speziellen Befehlen z. B. zur Aufstellung 
eines Telefonverzeichnisses. 

Nach dem Start durch RUN erscheint auf dem Bildschirm eine Maske, 
in die Daten geschrieben werden miissen. Der Cursor wird hier durch 
einen (nicht blinkenden) Pfeil ("t") ersetzt, der auf die nachste 
Position zeigt. Es miissen nicht alle Datenfelder (Datum, Name, Vor- 
name, etc.) ausgefiillt werden. 

Wahrend der Eingabe haben folgende Tasten Sonderbedeutungen: 

(CRSR -*) : Sprung zum nachsten Datenfeld. 
(CRSR ■*-) : Sprung zum vorherigen Datenfeld. 

(Return) : braucht theoretisch nie gedriickt zu werden, da alle ein- 
gegebenen Daten sofort gespeichert werden. 

(Return) ohne vorherige Anderung (Eingabe) des Feldes loschtdas 
Feld und springt zum nachsten Feld. 

(Return) mit vorheriger Anderung (Eingabe) des Feldes loschtdas 
Feld nicht und springt zum nachsten Feld. 

(HOME) : Der Bildschirm wird geloscht und die bisherigen ein- 
gegebenen Daten werden neu in die Maske geschrieben. 

(CLR) : Ldschen der gesamten eingegebenen Daten = Start von 
vorne. 



Sprung zum Befehlsmodus (s. u.) 
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1st ein Feld ausgefiillt, erfolgt sofort automatisch der Sprung zum 
nachsten Feld. 

Nachdem diese Daten eingegeben worden sind, weiS der Computer 
noch nicht, was er mit Ihnen anfangen soil. Sind es neue Daten, die er 
fest abspeichern soil, ist es eine Korrektur oder sind es Daten, die er mit 
den ihm bisher bekannten Daten vergleichen soil ? 

Hierfiir dient die "@"-Taste. Nachdem sie gedriickt wurde, zeigt der 
Pfeil auf das linke obere Feld ("0"). Der C-64 wartet nun auf den 
Befehl, was er mit den eingegebenen Daten machen soil. 

Folgende Befehle sind moglich: 

"N": Nach driicken der Taste N werden die eingegebenen Daten als 
neue Daten interpretiert und fest im Programm als DATA-Zeilen 
abgespeichert. 

"S": Die eingegebenen Daten werden als Daten interpretiert, nach 

denen gesucht werden soil. 

Es gibt drei verschiedene Ausgabemdglichkeiten, nach denen Sie 

der Computer fragt: 

1 .: Ausgabe nur auf Bildschirm 

Jedesmal, wenn der C-64 Daten gefunden hat, die den ein- 
gegebenen entsprechen, gibt er diese auf dem BS aus und setzt 
nach Driicken einer Taste die Suche fort. 

2.: wie 1 ., jedoch Ausgabe auf Drucker. 

3.: Dies ist die wirkungsvollste Methode. Jedesmal, wenn der C-64 
Daten gefunden hat, gibt er diese auf den BS aus und kehrt in 
den Eingabemodus zuriick (der Pfeil erscheint wieder). 
Diese konnen jetzt nach Belieben auf den Drucker ausgegeben 
bzw. korrigiert werden. AnschlieBend konnen Sie durch 
Driicken der Tasten "@" (Befehlsmodus I) und "\" (siehe 
unter !) die Suche fortsetzen. 

Nachdem die Ausgabeart festgelegt ist, fragt der C-64: "Und/oder 

Verkniipfung der Daten ?" Wird hierauf mit "U" (und) geant- 

wortet, wird nach Daten gesucht, die in alien Feldern (mit Aus- 

nahme derjenigen, die bei der Eingabe leergelassen wurden) mit 
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den eingegebenen Daten iibereintimmen. 

Wird mit "0" ) oder geantwortet, wird nach Daten gesucht, die in 

einem oder mehreren Feldern mit den Eingegebenen uberein- 

stimmen. 

Wird wahrend der Suche eine Taste gedruckt, so wird die Suche 

sofort abgebrochen. 

"C": Daten die durch den Befehl S3 auf den Bildschirm gebracht 
wurden, konnen korrigiert werden und dann durch die Tastenfolge 
"@C" als korrigierte Daten an Stelle der alten Daten abgespeichert 
werden. 

Nach "C" ist keine Riickkehr in den Such modus S durch Drucken 
von "@" moglich ! 

"P": Die Daten, die sich im Moment auf dem BS befinden, werden in 
genau demselben Format auf den Drucker ausgegeben. 

"R": Die Daten, die sich im Moment auf dem BS befinden, werden 
mit Bezeichnungen ("nachname", "vorname", . . .) auf den 
Drucker ausgegeben. 

"!": Nach Unterbrechung des Suchbefehls S3 (s. o.) wird hierdurch die 
Suche fortgesetzt. 

"T":Samtliche Telefon-Nummern + Vorwahl werden den Daten ent- 
nommen und mit Nachnamen alphabetisch geordnet auf den 
Drucker ausgegeben (Telefonverzeichnis). 

Wenn als Daten nur Nachname, Telefon-Nummer und Vorwahl ge- 
speichert werden sollen, so kann dies in komprimierter Form ge- 
schehen, indem (bei Befehl C oder N) im Datenfeld "Datum d. Ein- 
tragung" nur das Zeichen "#" eingegeben wird. 

SchluBbemerkung: 

Sollten Ihnen beim Lesen dieser Bedienungsanleitung Zweifel ge- 
kommen sein, ob Sie dieses Programm jemals richtig bedienen werden 
konnen, so lassen Sie sich dadurch nicht entmutigen. Sie werden sehen, 
daB Sie bereits nach kurzer Einubungszeit mit den wenigen, aber 
wirkungsvollen Befehlen vertraut werden. 

Auch hier gilt die Regel: 

Obung macht den Meister ! 
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10 REM LATA 

100 P0KE53272,21 

101 PRI\\T"n!MtM\ .-•-, ,- 

102 PRINT" i I I I 



103 PRINT" I II I 

I I I I .• — . .■-]—. / — r ,• — I ,• — •, I ■■ — 

104 PRINT" I '-' I !•-••-' i I ! I I - I 

I I • •• '-.j — ■• • — i_i i i j 

105 PRINT" I 



I (C> BY W.HOFRCKER 1933 
106 PRINT" '• 



200 PRINT"M3ITTE DRUECKEN SIE EINE TASTE" : GOSUB600 

00 

210 P0KE53272,23 

272 PRINTMSEINEN MOMENT BUTE. 

275 CLR ■■ D I MR ( 16,2 > , A* < 16 :> , B* (16) , C* < 1 6 > ■ NR=S 

280 H*="!<!!5.# 3#52?i /"' 3) %'}?..') 5$ '?0?( K5++ G-~ G 

/ Gl 3152" = RESTORE 

230 FORH-0TO 1 6 '■ FOR I =0702 : fl ( H , I > ~ASC <. M I D* (. H$ , H*3+ 1 + 

1,1>>~32-NEXTI 

29 1 REflDC* < H > •■ fl* <■. H ) = : "' : NEKT 

298 GOSUB300 

330 IFGS=9THENRETURN 

430 H=l : POKE 198,0 

4 1 fl* <: H > : = " " : GOSUB60 1 30 : PR I NT " m " i ■ I =S 

420 GOSUBSeeier- PRINT "II HIT.: : IFH=0THEH500 

430 I Ffi*= " 3" QRR$= " M' ! ORfl*= " JQ" ORfl*= " .T* 0RA*=;<:HR* ( 34 > T 

henprint":b,it"; :goto420 

440 I Ffl*= " Q " THENH=6 : G0T04 I O 

450 I FA$OCHR* ( 1 3 ) THEN469 

452 I F I =@THENfl* < H > = : " " : C* < H •' = " " : GGSUB60 1 0© = PR I NTLEF 

T*<H*,FKH,2>-<~1:> 

456 H=H+1-16*INT(H/16) 

457 I =0 : GOSUB60 1 GO : I FLEN < C* < H > ) =@THEHPR I NTLEFT* < H* 
, Fl < H , 2 :< + 1 > : GOS1JB60 1 00 

458 PRINT" a"fl*<H> "HWt" ; : GOTO4£0 
460 IFA*="PI"THEN456 

465 IFfl$="U"THENH=H-"l -16*INT(SGN(H-2>/2> • G0T0457 

470 I F A*=CHR* < 20 ::■ ORfl*=CHR* ( 1 43 ) THENA* < H > = " " : G0T045 

471 IFfl$="r3"THEN275 
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472 IFFI*«"3"THEN950 

475 I FLEN < C* '■. H > > O-OTHENPR I NTLEFT* < H* , R < H , 2 > + 1 > ■ GOS 

UE60100 : C*'-.H> = "" 

480 I == : I + 1 : fl* < H > : =fl* < H > +fl$ : PR I NT " SI" 1=1$ " SS" i 

490 I FLEN <. fl* ( H > > <fl < H .■ 2 ) THENPR I NT !! Mf " ; : G0T0428 

495 G0T0456 

500 I Ffl* : ~ " @ " THEN456 

505 print" a" n# M IB"; 

510 I Ffl*= " P " THENGOSUB700 ■ GOTO950 

515 I Ffi*= " R " THENGGSUB750 : G0T0958 

530 I Ffl*= " N " THENNR=@ : GOTO60© 

540 IFfl*="C"THENS00 

541 IFfl*="T"THEN2000 

545 IFR*="S"THEN1000 

546 IFfl**" i "THEN 11 30 
550 F0RL7-1T05 

555 PRINT" S?H" ; • FORL8=1TO20S '• NEXT '• PR I NT" -II" ; = FORLS 
= 1 TO200 = NEXT ■ NEXT ■ PR I NT " 018" ; 
560 G0T0456 

600 N=PEEK C 2068 > +256* ( PEEK ( 206 1 ) - 1 ) 

601 IFNR>0THENN=NR-1 

6&6 PR I NT " limi" ; ; H=N#20+20 1 00 : I =9 

6 1 I =0 : PR I NTH " DATA " N+ 1 ; : J=4 

615 I Ffl* a :> = " # " THENPR I NT " > " fl* '•. 1 ) " .• " fl* (2)" , " fl* < 9 > " , 

"fl*(10> ; G0T0651 

620 J=J+LEN < fl* < I y > +3 ; PR I NTCHR* < 34*SGNX LEN <■. fl* < I > ) > ) 

fl* O. -> CHR* ( 34*SGN ( LEN ( fl* <. I ) > > > ; 

625 IFI=16THEN650 

630 I F J+LEN ( fl* < I + 1 ) ':> C65THENPR I NT " , " .; ■• I = I + 1 = G0T062G 

649 PR I NT : H"H+ 1 : I = I + 1 : PR I NTH " DATA " ; : J»@ : 00T0629 

650 PRINT 

65 1 I FHR>0THENH=H+ 1 ; PR I NTH • I FH-- 1 NT (. HX 1 8 > * 1 0<7THEN£ 
51 

652 IFNR>8THEN655 

653 H=PEE!<(2060> + 1 : IFHK256THENPOKE20S0, H • G0T0655 

654 PQKE2060 , © : H*PEEK < 286 1 ) ■• P0KE286 1 , H+ 1 

655 PRINT"GOTO660B" ; : POKE 198.. 10 = FORH=1TO10 : P0KE63G 
+H, 13 'NEXT: END 

66Q POKE 198.. 

670 G0T0275 

700 H*-"1T2 3T4 ; T5 9t6 7 8 = T< T™ t> T? i2T" : 0PEN4, 4 

705 PRINT#4:PRINT#4, "SCR COP 
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".;HR 

796 I Ffl* C 1 > O " # " THEN? 1 O 

707 FORH- 1 T02 : fl*=fl* ( H > ; Tfl~G : RE= 1 = GOSUB682O0 : fl$* " * 

"+fi*<H+8> =Tfl=15:RE*0 

70S GOSUB60200 ■ NEXT ■ G0T0725 

7 1 FORH* 1 TO 16a *flSC < M I D* < H* , H*2-~ 1 .. 1 > > -48 : RE=fiSC < M 

ID*a-i*.. H*2, i;:')-94 

720 fl*=A* C I ) ; TR=R <I , 1 ) ■ GOSUB60200 = NEXT 

■--■•" = CLQSE4 = RETURN 

750 0PEN4 , 4 : RESTORE : REACH 

755 PRINT#4:pRINT#4, "SCR PRNT 

- — " ; NR ; FORH* 1 TO 1 6 ; RERDC* ( H 

756 I Ffl* ''■: H > = " " THEN78G 

760 Tfl=0 : fl*=C*CH>+" : " : RE=1 : GOSUB6020O 
770 Tfl" 1 5 : fl*=fl* < H ) : RE~0 : GOSUB60200 
780 NEXT 

— " : CL0SE4 : RETURN 
80S IFNR>0THEN600 

810 PRINT"3W«aMWWWW«KD^^ SIND NEU EINGE 

GEBEN UND KOENNEN 
820 PRINT"KEINE KORREKTUR SEIN. " 
830 G0SUB59998 
850 GO TO 950 

900 H*=" S3 I 1 II I I II I I I I I II I I I I I I I I I I i M I I 1 i I I I I I i ! I I 
I" : PR I NT '"3.1 Sh -- 

9 1 FORH=@TO 1 6 '■ G0SUB68 1 00 : I Ffl* < H > O " " THENPR I NT " S" R 
* >: H > .: '• I =LEN < fl* (. H > > : GOT'0930 
920 PR I NT " S" C* < H > :■ ■■ I =LEN < C* < H > > 
930 I =R k H , 2 > ~ I + 1 = I F I >0THENPR I NTLEFT* < H$ , I ) 
940 NEXT : RETURN 
950 GOSUB90O ; H=0 : 00T0456 

1 OOO FORH* 1 TO 1 6 •■ B$ < H ) =fl* < H > ■ C* ( H > = " ,: = NEXT 
1010 PRINT\TMMMWELCHER SUCHMOBUS ? 
1020 PR I NT "M -1- flUSGRBE flUF BILDSCHIRM 
1030 PRIHT"» ~2- flUSGRBE FiUF URUCKER 
1040 PRINT"*} -3- flUSGRBE flUF BILDSCHIRM MIT": PR IN 
T" RBFRRGE BS/BRUCKER 
1050 PRINT: PRINT 

1060 PRINT" < 1/2/3 > ? "; : GOSUB60000 : PRINTFif = I Ffl* 
<"l"ORfl*>"3"THEN1060 

1061 Q«VflL'Cfl*> : PRINT"WKLiMD/ODER VERKNUEPFUNG BER D 
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RTEM <U/0> " : GOSUB60000 '• B$ =fi* 

1062 IFB*O"U"flNLB*O"0"THEHPRIHTB* : GOTO 1361 

1 070 RESTORE : EN^PEEK '•. 2060 ) -1-256* < PEEK ( 206 1 > - 1 > ■ FORN 

R=9T0EN 

1 075 PR I NT " 33UCHE LflEUFT ; " NR ; EQ"0 '• READH , R* <.i>- GET 

m ■ IFfl*0" "THEHCS*0 ; G0T0958 

108© IFfi$< 1 >O"#"THENF0RH=2T0l6 = REflDR*CH> • NEXT : GOT 

01085 

1 083 F0RH=3T0 1 5 : 1=1$ (. H > = " " ; NEXT : RERBA$ '■. 2 '.'•' > A$ < 9 ) , Fi* < 1 

> 

1 085 H™0 : F0RH= 1 TO 1 6 : I FB* < H > O " " THENN=N+ 1 

1 036 A=LEN ( fl$ < H > ) ; I FLEN < B* < H > > < ATHEN A=LEN < B* '■■ H > >, 

1087 IFA-0THEN1030 

1 088 I FLEFT* ( R* ( H ) , fl > "LEFT* < E* < H ) , A > THEHEQ=EQ+ 1 

1 090 NEXT : I F (. B#= " " flNDEQ=0 > OR < B$^ " U " ANDE0.-CN ') THEN 1 2 

00 

1 1 OO I FG= 1 THENGS-9 : G0SUB298 : G0SUB59938 : GOTO 1 280 

1 1 1 8 I FQ-2THENGOSIJB7O0 : GOTO 1 2©0 

1120 GS=7:GOTO950 

1130 IFGSO-7THEN550 

1140 GS=0 

1200 HEXTNR:eS=0:PRINT"3aSUCHLflUF BEENDET" ; G0T0275 

2008 0PEN4 , 4 : EH=PEEK < 2860 > +256* ( PEEK < 206 1 ) -• 1 > 

20 1 FORA=65TO90 : RESTORE = FORH=0TO 1 6 • REAHA* : NEXT 

2028 E*=CHR$<fi> : PRINT":iBUCHST. : " ; E* ; J=0 

2025 F0RI = 1T0EN-RERDH,R$.,B*,C$,B* 

2030 I Ffl$<> " # " THENFORH- 1 TG3 = REflDC* .■ D* = NEXT • FORH= 1 T 

06 : RERBflf : NEXT : fi*= " * " 

2840 IFLEFT$<B*, 1>=E*THEH206@ 

2050 NEXT = NEXT ■ PR I NT#4 : PR I, NT#4 • CLQSE4 , 4 • G0T0958 

2060 I FJ~0THENJ= 1 : PR I NT#4 : PR I NT#4 : PR I NT#4 , CHR* < 1 > i 

E$ " '• " 

2870 RE~ 1 ; TR™0 ■ GOSUB60200 : fi*=B$ : TA=5 : GOSUBS9200 ; A3 

=H$ ■ TA-30 : GOSUB60208 

2088 A$=C$ ; RE=0 : Tfi=40 : G0SUB68288 ; GOTO2050 

20008 REM **** DflTEN *•*** 

20810 BRTR0, "DATUM D. EINTR. " , "NRCHNfiME" , " VORNAME" . 

"TITEL".. "STRASSE, NR. " 

20020 BATA"PLTZ" , "WOHNORT" , "LAND" , "TEL. NR. " > "VORWf 

HL" , "GEE. DATUM" > "BERUF" 

20038 DfiTfl"V M , M 2", "V"., "W" 

20100 BRTR 1 ,"04 08 1979" , "HOPPEN% "PETER" .., "KARL 
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20128 DRTfi 2 
20140 DRTfl 3 
20160 DATA 4 
20180 DATA 5 
20200 DATA 6 
20220 DATA 7 
20240 DATA S 
20260 DATA 9 



-BEGAS STR . 20 " , " 500© " 
20161 DATA"KOELN 41", "Gc 
. I960" , "8CHUELER", ",•-'", ",-•'" 
20102 DATA"/", "/" 

#, -MARERS, 45668, 02224 

# , SNOOPY , 45687 1 , 02268 

tt,MRIER, 1111,2222 

#,ELC0l v IP, 08024, 7331 

#, PR0B3THAUS, 458454, 0221 

# , ME I ER A . , 459778 , 83654 

#, REDVSOFT, 08024, 3449 

#,BITFIRE, 08024, 7331 
20280 DATA 10 , tt, MUELO, 08O24, 1814 
20300 DATA 11 , # , ME I ER AUTOTEL . , 2566974 1 , 002647 
20320 DATA 12 ,#, H0L2ER, 9998, 567 
20348 DATA 13 , , , , , , , , , , , , , , , , 
59338 PRINT"WBITTE DRUECKEN SIE EINE TASTE, 
6 P 8 K E 1 3 8 , 8 
600 1 OETfl* : I FR*= " " THEH680 1 6 
60020 RETURN 

60 1 80 P0KE2 1 1 , A ( H , 1 > : P0KE2 1 4 , A \ H , 8 ) : tt= 1 024+49*fl < H . 
> 

68110 P8KE2 18,1 NT CX/256 > : POKE209 , X-256* I NT ( X/256 ) : 
RETURN 

60280 REM SUBROUTINE 

68201 REM M DRUCKT A* flUF DEM DRUCKER fllJS 
60202 REM"TAB-!.'J'~~I -,,-' TA, RETURhK-RE-O 
60288 IFREO0THENRE=1 
68289 I FAt-= " " THEN6026 1 
60210 L=LENCfl*> : IFTfl=0THEH6@233 
60220 D=TA-P : I FD>0THENPR I NT#4 , SPC < D ) .; : P=TA 
60230 L7=255 ; F0RL3= 1 TOL ; L8=ASC ( M I D* '■ A* , L9 , 1 > > 
60240 IFL8>192RNDL8<219THENPRINT#4, "XT'; :L7=127 
60250 PR I NT#4 , CHR* < L8ANDL7 > J : I FL7™ 1 27THENL7=255 ■ PF 
INT#4,"n".: 
60268 NEXT=P=P+L 
6026 1 1 FRE*8THENPR I NT#4 : P=@ 
68270 RETURN 
63800 FORK-2848 TO 2878 
63018 PRINT PEEKOO; 
63020 NEtfT X 
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Rechnungen 
schreiben 

Rechnungen-Schreiben 

Das folgende Programm ist vom Aufbau her recht einfach, kann aber 
auch vom weniger geiibten BASIC-Prograramierer leicht geandert und 
erweitert werden. 

In der vorliegenden Form beriicksichtigt das Programm folgende 
Punkte: 

a) 7% Mehrwertsteuersatz {kann geandert werden — siehe Zeilen 500, 

640, 660, 700) 
b)Stuckzahlabhangiger Rabatt (kann geandert werden — siehe 

Zeilen 360 - 380) 
c) Stiickzahlabhangige Versandkosten (siehe Zeile 400 — 440) 

Die Punkte a) und b) lassen sich leicht im Listing auf die personlichen 
Anforderungen zuschneiden. Es ware auch moglich iiber 

INPUT "RABATT",D 

den Rabatt jeweils von Hand einzugeben. Ahnlich konnte man mit 
den Versandkosten verfahren. 

Bevor Sie beginnen, sollten Sie zuerst einmal die Produkte nachpriifen. 
Siehe ab Zeile 860. Ich habe Ihnen einige Beispiele eingegeben. Sie 
konnen Ihre nach Zeile 910 einfiigen. Das letzte Statement muB jedoch 
immer wie Zeile 920 aussehen. 

Was leistet das Programm ? 

Es erstellt eine korrekte Rechnung mit 

1 . Einzelpreisen incl. MwSt. 

2. Einzelpreisen ohne MwSt. 

3. Gesamtpreis ohne MwSt. 

4. Hohe des Rabattes in % 
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5. Hohe des Rabattes nach Betrag 

6. Rechnungssumme ohne MwSt. 

7. Mehrwertstuerbetrag 

8. Verpackung 

9. Mehrwertsteueranteil der Verpackung 
10. Rechnungsbetrag 

Dann schreibt das Programm einen Paketaufkleber. 

Am SchluB wenn mit der Eingabe fiir die Kundennummer eine Null ein- 
gegeben wird, werden die gesamten Mengen pro Produkt ausgegeben. 

Bedienung: 

Zu Beginn werden Kundennummer und Rechnungsnummper einge- 

geben. 

Das Rechnungsdatum wird nur zu Beginn einmal eingegeben. Es wird 
bei den folgenden Rechnungen automatisch eingesetzt. Die Rechnungs- 
nummer wird nach jedem Durchlauf urn 1 erhoht. 

Nachdem Sie die gewiinschten Produkte eingegeben haben, und die 
Rechnung fiir einen Kunden beenden wollen, geben Sie fiir Bestell- 
nummer einfach Null (0) ein. Dann wird die Rechnung geschrieben. 

Jetzt folgt eine neue Rechnung. Eine neue Kundennummer muB ein- 
gegeben werden. Null bricht das Programm ab. Eine Zahl groBer Null 
fiihrt zur nachsten Rechnung. 

1 P0KE53281,7-P0KE532S@,3 

2 PRINTCHR*<144> 
10 PR I NT "3" 

100 REM C BV IMQ; HOFflCKER GMBH 1989 

110 DIM TC10.2) 

130 INPUT "RECHNUNGSDATUM EINGEBEN" ;RB$ 

140 INPUT"£RSTE RECHHUNGSHUMMER EINGEBEN"; II 

1 50 I NPUT " KUNDENNUMMER E I NGEBEN " ; C 1 

160 IF C1=0 THEN 1400 

170 INPUT "NAME DES KUNDEN EINGEBEN"; SI* 

180 INPUT ,! STRASSE UND NR.";S2* 

190 INPUT"POSTLEITZflHL UND 0RT%S3$ 

200 0PEN4.4--CMD4 
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210 PRINT#4,TflBa2>;"ING. W. HOFflCKER GMBH, TEGE 

RNSEERSTR.; 18.. 815© HOLZKIRCHEN 

220 PR I NT#4 : PR I NT#4 '• PRI NT#4 

230 PRINT#4/TflB<5>;Cl 

240 PRINT#4,TRB<5>;S1$ 

25© PRINT#4,TflB<5>;S2$ 

260 PRINT#4,TflB<5>;S3* 

270 PRINT#4, TRB<42> ; 11 ; TFIB< 18> J RD* 

280 PRINT#4:PRINT#4 

290 PRINT#4 

300 PRINT#4-PRINTtt4-PRINT#4 

32© G08UB 740 

330 GOSUB 500 

340 GOTO 320 

360 IFSl>0flNDSK6THEND=.25 

370 IFSl>5flNDSKllTHEND=.33 

380 IFS1>10THEND=.40 

390 REM Sl-MENCE V=KQ8TEN FUER VERSflND UND VERPfi 

CKUNO 

400 IFSK1STHENV-2 

410 IFS1M4 RNDSK30THENV-2.3 

420 IFS1>29RNDSK50 THENV-3 

430 IFS1>49RNDSK100THENV=4 

440 IFS1>99THENV=5 

450 REM NEXT LINE INCREMENTS INVOICE NUMBER 

460 11=11+1 

470 R«INT<D*100+.S> 

480 GOTO 560 

500 0=0/ 1 . 070 • R=G : GOSUB 1 090 ■ H*«B$ : L2=L 

510 R-0-- GOSUB 1090 

520 0*«D*:L1-L 

525 C=S1*G 

530 fl=C- GOSUB 1090 

535 j$=str$ < n 1 > = k**str* < s 1 ) 

540 pr i nt#4 , trb < 5 > ; n 1 ; trb < 6-len ( j* > > i s 1 ; tab < 1 0~l 

enck*>>;e$; 

545 pr i nt#4 ■• tab < 32-len <', e* > ~l 1 > ; g* ; trb < 1 3-len < g$ > 

-L2> ; H$; TflB< 15-LEN<Hf >-L> ; D* 

548 C=S1*G=T=T+C 

530 RETURN 

560 D1-D*T 

570 D1 = INT<D1*100+.5V100 
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530 PRINT#4 

590 fl-Dl=OOSUB 1090 

600 PR I NT#4 , TAB < 33 > ; R ; TAB C 2 > i " XRRBATT* - " .: TAB < 22 

-DJD* 

6 1 FORP= 1 TO < 24-ZS > = PR I NT#4 = NEXT 

620 A=T~B1'- GOSUB 1090 

630 G$=D*:L1=L 

640 F=T~Dl+V:f1l=F*.070 

650 A=M1 ; GOSUB 1090 

662\ PRINT#4,TflB<54-L>;D*.;" 7, 0*i" J TflB<10-Ll) J G* 

670 V=V* . 065 : fi=V = GOSUB 1 090 '• G$=B$ 

6S0 PRINT#4:PRINT#4=PRINT#4 

690 R=V "• GOSUB 1090 

700 PR I NT#4 , TRB < 50 > ; G* ; " 7 , 954 " .'. TRB C 1 8-L > ; D* 

710 flsMl+F+V: GOSUB 1090 

720 PR I NT#4 , TAB (. 7 1 -L > ; D* 

730 GOSUB 950: GOTO 150 

740 INPUT"WELCHE BESTELLNUMMER" ; Ml 

750 IF Hl-0 THEN 350 

760 RESTORE 

770 RERB N,E$,0 

780 I FN* 1 THEN 310 

790 IF N=N1 THEN 830 

800 GOTO 770 

310 PR I NT "BESTELLNUMMER NICHT GEFUNBEH" 

820 GOTO 740 

330 PRINT" INPUT WIEVIEL STUECK" 

332 INPUT SI 

335 GOSUB 1300 

340 I=I+Sl:2S=ZS+l 

350 RETURN 

860 REM HIER KOMMEN BIE PROBUKTE HINEIN 

865 DRTR 20, "OPERRTIONSVERSTRERKER" , 19. 30 

868 DATA 11 3 , " BRS I C-PROGRRMM I ERHRNBBUCH ",19.80 

870 BRTR 1000, "57 PROGRAMME IN BASIC ",35. 00 

875 DATA 110, " PET PROGRAMM I ERHANBBUCH " , 29 . 80 

880 BATR 31, "57 PROGR. I. BASIC BEUTSCH" , 39. 00 

335 BATR 104, "1000 ELEKTRONIK SCHRLTG" , 49. 00 

833 BATR 112," PRSCRL-PROGRAMM I ERHANBBUCH " , 29 . SO 

390 BRTR 34,"TINV BASIC HANBBUCH" , 19. 80 

395 BflTA 101,"CB-HANBBUCH F. HOBBVF. " , 19. 80 

900 BAT A 1 09 , " 6502 PROGRAMM I ERHANBBUCH " , 29 . 80 
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910 DATA 110, "PET PROGRflMtllERHflNBBUCH" > 29.30 

920 DATA 1 > " 1 " .■ 

930 RETURN 

940 END 

950 PRIHT#4=PRINT#4 

9&Q PRINT#4,"ING. W. HOFflCKER GMBH" 

970 PRIHT#4--PRIHT#4,"TEGERHSEERSTR. IS" 

980 PR I NT#4 : PR I NT#4 , " 8 1 50 HOLZK I RCHEN " 

330 F0RZV-1T09 

1060 PRIHT#4 

1010 HEXTZV 

1020 PRINT#4iTflB<30)JSl* 

1030 PRINT#4 : PRIHT#4, TflB<38) ; S2* 

1 040 PR I HTM = PR I HT#4 : PR I. NT#4 

1 050 PR I NT#4 > S3* ; TAB (. 24 > ; S3* 

1 060 PR I NT#4 = PR I NT#4 '• PR I HT#4 = PR I NT#4 '• PR I HT#4 

1065 CLGSE4,4 

1070 ZS=0:'S1*0 : T=0: 1=0 

1080 RETURN 

1090 K1**"0" 

1100 K2$==".00" 

1120 B=INT<fl#100+.3>/100 

1130 D1*«STR*<B> 

114© B0=B*10 

1150 B2=INTCB0> 

1160 B3=D0-B2 

1170 IF D3O.09THEN 1200 

1130 n*=Di* 

1190 GOTO 1268 

1200 B4=INT<B> 

1210 D5=B~D4 

1220 IF B5<0.09 THEN 1250 

1230 D*=D1*+K1* 

1240 GOTO 1268 

1250 D*»D1*+K2* 

1260 L-LEN<D*> 

1270 RETURN 

1300 FORR1-1TO10 

1310 IFT<Rl,l>=NlORT<Rl,n=0THEN1350 

1320 NEXTR1 

1350 T<R1,1>=N1 

1360 T'CR1,2>=T<R1,2>+31 

1370 RETURN 
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14Q0 

1410 

1415 

1428 

1425 

1427 

1430 

,2> 

1440 

1450 

1460 



0PEN4 , 4 : CMD4 : PR I NT#4 : PR I HT#4 : PR I NT#4 

PRINT#4, "BESTELLNR. " .: TflB(12) ; "VERKflUFT" 

PRINT#4 

FORR1=1TO10 

IFT<R1,1>=0THEN1450 

J$=STR$<T-r.Rl,l>> 

PRIHT#4., TflB<2> ;T<R1, l);TfiB<20-LEN(J$>'>;T<Rl 

NEXTR1 

CL0SE4..4 

END 



ING. W. HOFRCKER GMBH, TEGERNSEERSTR; 18/ 3150 HOLZKIRCHEN 



FIRMfl HANS MRIER 
MEISEHWEG 4 
3158 HOLZKIRCHEN 



1234 



19.9.1983 



20 

109 

31 



2 

10 

5 



© © 

OPERRTIONSVERSTflERKER 19.80 18.30 37.31 

6502 PROGRHMMIERHflNDBUCH 29.80 27.85 273.50 

57 PROGR. I. BRSIC DEUTSCH 39.00 36.45 182.24 



ING. W. HOFflCKER GMBH 
TEGERNSEERSTR. 18 
3150 HOLZKIRCHEN 



40 XRHBflTT* 
© 



© 

21.08 7, ZY. 



© 



?,ZV. 



199.10 
298.66 



'© 

2.'5G 
:2.4E 

% 



2.50 
322.40 



FIRMfl HRNS MRIER 
MEISEHWEG 4 



8150 HOLZKIRCHEN 



8150 HOLZKIRCHEN 



BESTELLNR. 

20 

109 

31 



VERKflUFT 



2 
10 
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Auftragsbestitlgung und Rechnung 



Rechnunga-Nr. 



Rechnunga- Datum 



Besteltung-Nr. Vertreter 



BesL-Menge gel Menge 



Tltel/Bezelcrinung 



Bruno- Nettoprels 

Verkaufspreis pro Stuck 



Ueferung tiber 



Warenwert Netto 



Ekjentumavortoehan nach § 455 BGB. 

Es getton unsafe Lteleumgs- u Zahbngebetflngungen 



Mehrwortateuer 



Warenwert Netto 



Anderungen 



Versandkostenanteil 



(Postleftzanl) fOrt) 



Fur kurze MltteNungen an den Empfsnger 



Rtchnungebetreg 



Bttte frei lessen zum Aufldeben dee Paketnummernzettela 



Vermarke uber besondere Versendungsformen 
und Vorauaverfugungen 



(StraBe und Hausnummer oder Pakefauagabe] 



bitte beaonders groB und euffflllig angeben! (Bestlmmungsort) 
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Dauerkalender 



Dauerkalender 

Dieses Programm errechnet Ihnen fiir jeden Monat, seit der Geburt 

Christi, ein Kalenderblatt. 

Ich habe es fiir September 1983 getestet und die Werte waren richtig. 

Das Programm lasst sich als Baustein in Geschaftsprogramme einbauen, 

wo der Wochentag automatisch berechnet werden soil. 



1 Q PQKE532S 1,7: POKE53280 .■ 3 

£0 PRINTCHR*<144> 

50 PRINT"nW(D(WWIiWPROGRflMM ERZEUGT EINEN KflLENDE 

R" 

52 PRINT: PRINT" FUER JEDEN MONfiT" 

54 PRINT: PRINT •- gEIT DEM JflHRE 0" 

60 CLR = D I M m C 24 > = TO=T I 

30 PRINT--PRINT"GEBEN SIE RLLE 4 ZfiHLEN FUER DPS 

JflHR " : PRINT: INPUT" " ; G 

82 INPUT "MONflKl- 12 >";M 

84 IF G<1908 THEN 105 

90 D=CG-1900>*365 

92 FOR Q=1901 TO G-l 

94 IF Q/4=INT<Q/4> THEN D=D+1 
96 NEXT 

93 D=D+2 

100 GOTO 270 

105 print "nmrnmamiDfts druert ein wenig eei di 

ESEM WERT" 

110 D=G*365 

120 FOR G=l TO G-l 

126 IF Q/400=INT<Q.--'400> THEN 130 

128 IF Q/100=INT<Q/100>THEN 140 

130 IF Q/4=INTCQ/4> THEN D=D+1 

140 NEXT 

150 D=D+1 

270 PRINT l, nMMnHDaWiii»*>*»»»IDRUER KflLENDER" 
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280 FOR J=l TO 24: READ M$ < J> : NEXT 

29Q FOR J=lT07:REfiD D* «: J > : NEXT 

300 PRINT M*<2*M-l>TflB<35>G 

310 PRINT: PRINT: FOR j=j. TO 7 : PRINT TAB<6*< J>-6>D 

*<J>; " "; :NEXT 

316 IF 0/400= I NT ( 0/400 > THEN 320 

318 IF G/100aINT<G/100) THEN 330 

320 IF G/4=INT<G/4> THEN M$<4>""29" 

330 FOR J*2 TO 2#M-2 STEP 2 = Si=Sl+VflL<M* <J> > : HEX 

T 

332 IF M=l THEN S1=0 

340 S=S 1 +D-7# INT (. < S 1 +D > /7 > 

350 V*VflL<M*<2*M>> 

360 S=S+7 : IF S>7 THEN S=S-7 

370 T=1+6*KS-1> = U*5 

330 PR I NT : PR I NTTflE < T- 1 > i 

382 IF T=37 THEN 391 

390 FORD* 1 TO V : G0T0392 

391 PRINT 1 ; F0R D=2T0V 

392 PR I NT D ; SPC < U-LEN < STR* < D > ) > ; 
400 IF PO3<0»34 THEN U=3 

410 IF P0SOX34 THEN U=5 

420 NEXT 

422 PR I NT : PR I NT : PR I NT : PR I NT TAB < 1 > " ZE I T= " I NT < ■:. T 

I-T0>/36>/100 "MINUTEN" 

430 PR I NT '• I NPUT " NOCHMRL " ; K* 

440 IF LEFTf-CK*, 1> = "J" THEN 60 

450 IF LEFT*<K*,1>*"N" THEN END 

460 GOTO 439 

7 1 DATA J ANUflR ,31, FEBUflR > 28 , M AERZ , 3 1 , APR I L , 30 > M 

fiI,31,JUNI,30,JULI,31 

720 DATA AUGUST , 3 1 , SEPTEMBER , 30 , OKTOBER , 3 1 , NO VEM 

BER,30,DEZEriBER,31 

738 DATA SON , MON , D I E , M IT , DON , FRE , SAM , SON 
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Nutzliche 

BASIC-Programme 

(Modulkiste) 



BASIC-Moduln 

Bei der Programmierung eigener Anwender Software ist der Riickgriff 
auf bereits vorliegende Problemlosungen sehr hilfreich. Diese Routinen 
sind dann als BASIC-Moduln in das neue Programm nur einzufiigen. 

Programm-Titel, Autorenname, die Korrektur iiber INPUT eingegebener 
Werte , Tabellenformattierung, Balkendiagramme, sind einige solcher 
Teilroutinen. Sie kommen in gleicher oder ahnlicher Weise immer 
wieder vor. 

Hier nun einige dieser BASIC-Moduln. Um den Ablaut klar herauszu- 
stellen sind alle Beispiele so einfach wie moglich gehalten. Mit dem 
Wissen um das Wie ist dann eine Anpassung auf eigene spezielle 
Wiinsche leicht moglich. 
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Autoren Name mit 
Superrahmen 



Autoren Name mit Superrahmen 

Diese Routine schreibt Ihren Autorennamen als Spot direkt auf den 
Schirm. POKE N,X umgibt dann alles mit einem edlen Rahmen. 

Zunachst zum Rahmen. Die Umrandungen schreiben die FOR . . . 
NEXT-Schleifen der Unterprogramme ab Zeile 200 mit POKE N,X. 
Worin X das graphische Zeichen bestimmt. Den oberen Balken schreibt 

200 FOR N = 1024 TO 1063:POKE N,X: 



Diese Zeile pokt das mit der Variablen X bestimmte Zeichen in den 
Bildschirmspeicher. Das 1 K-Bildschirm RAM hat die Dezimaladresse 
1024 bis 2023. Auf gleiche Weise schreiben nun auch die anderen 
Schleifen den restlichen Teil des Rahmens auf den Schirm. Eine kleine 
Zugabe ist das GOSUB 300. Die Schleife FOR I = 1 TO 10 verlangsamt 
das Ausschreiben der Balken. 



Durch eine Anderung der Adressen in den FOR . . . NEXT-Schleifen ist 
jeder Punkt des Bildschirmes erreichbar. So kann der Rahmen ver- 
kleinert, rechteckige oder auch mehrfache Felder geschrieben werden. 

Jetzt fehlt nur noch, den Namen in die Mitte der Umrandung zu 
bringen. Das bewirken die TAB(N) und (N DOWN) Anweisungen der 
Zeilen 130 und 140. 

Die FOR . . . NEXT-Schleife in Zeile 150 bestimmt die Dauer des Spot. 
In diesem Beispiel bleibt der Titel etwa 2 Sekunden sichtbar. 

PRINT"CLR" loscht dann den Schirm und GOTO springt in das 
eigentliche Programm. 
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50 POKE 5328 1 , 7 : P0KE53288 , 3 
60 PRINTCHR*<144> 

91 REM 2 SEC.AL3 SPOT IN EIN 

92 REM PROORRMM SCHREIBEN. 
100 POKE 53272,23 

110 X=102 : PRINT"r3" 
120 GOSUB 280 

1 39 PR I NTT AB ( 1 1 > ; " :i!Mi!!Mi!!Mi!!li!.M!!!M:€RHflRD CONRAD 

140 PRINTTAB(12>; "H A M B U R 
158 FOR 1=1 TO 2000: NEXT 

160 PF?IHT n n":ENr:REM GOTO PROGRAMM 

199 REM OBERER 

200 FOR N=1924 TO 1063: POKE H,X: GOSUB 303 ■• NEXT 
205 FOR N=55296 TO 55335 : POKEN, IS : NEXT H 

239 REM RECHTER 

210 FOR K=1063 TO 2023 STEP 48 = POKE N,X: GOSUB 

380: NEXT 

215 FOR N=55335 TO 56295 STEP 40 : POKEN, 10 '• NEXTN 

219 REM UNTERER 

220 FOR N=2923 TO 1984 STEP -l:POKE N, X = GOSUB 
300 : NEXT 

225 FOR N=56295 TO 56256 STEP-1 : POKEN, 10 ■■ NEXT 

229 REM LINKER RAND 

238 FOR N=19S4 TO 1824 STEP -40 = POKE N, X : GOSUB 

308 : NEXT 
235 FOR N==56256 TO 55296 STEP-48 : POKEN, 18 ■• NEXTN '■ 
RETURN 
880 FOR 1=1 TO 10: NEXT: RETURN 
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Namen 
und Copyright 

Namen und Copyright 

Nicht selten gelangt Ihr muhsam erstelltes Programm in andere Hande. 
Dann ist oft die erste Tatigkeit der neuen Besitzer, Ihren Autorennamen 
aus dem Programm zu entfernen. 

Diese Routine verschliisselt nun Namen, Anschrift und andere Hinweise 
uber R E AD/DATA Statements. 

Name und Copyright sind in den DATA-Blocken ab Zeile 200 als ASC 
ll-Zahlencode gespeichert und somit bei LIST nicht zu lesen. Die Um- 
wandlung dieser Codezahlen in Buchstaben geschieht mit der An- 
weisung CHRS(X). Eine Zuweisung dieser Zahlen zum ASC 1 1 -Code ist 
in der Interpretercode-Tabelle des C-64 User Manual zu finden. Sie 
beginnt fur die Buchstaben bei A = 65 und endet mit Z = 90. 

Die FOR . . . NEXT-Schleife in Zeile 100 liest alle 36 Codezahlen aus 
den DATA-Blocken und legt sie zur spateren Verwendung in dem Feld 
X(l)ab, 

Die folgenden Schleifen nehmen die Auswertung vor. Zeile 110 FOR I 
= 1 TO 16 liest die Codezahlen des Namen. Zeile 111 verwandelt diese 
mit CHRS (X(l)) in Buchstaben und das PRINT druckt sie aus. 

Die Schleife in Zeile 120 arbeitet in gleicher Weise. Nur werden jetzt die 
Codezahlen 20 bis 36 ausgelesen, entschliisselt und ausgedruckt. 

Sind die READ-Anweisungen, DATA-Zeilen und FOR . . . NEXT- 
Schleifen geschickt im Programm verteilt und iiber GOTO und GOSUB 
angesprochen, so ist es nicht leicht Namen und Hinweise zu entfernen. 
Einen zusatzlichen Schutz bietet das Einfiigen von Programmvariablen 
in die Codezahlen der DATA-Zeilen. Wird jetzt der Versuch unter- 
nommen, den Namen durch Loschen von DATA-Zeilen zu entfernen, so 
werden auch diese Variablen geloscht und das anscblieBende Programm 
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lauft nicht mehr. 

Als Beispiel sind in dieser Routine drei Variable in Zeile 240 unter 
DATA abgelegt. Zeile 310 addiert nun X = X(17) + X(18) + X(19). 
Werden die DATA-Zeilen geloscht, so ist das Ergebnis dieser Addition 
nicht X = 300. Eine Variable mit falschen Werten macht aber nun das 
Anwenderprogramm funktionsunfahig. 

91 REM VERSCHLUESSELT IM 

92 REM PROGRAMM MIT CHR $<X> 
99 DIM X<40> 

108 FOR 1=1 TO 36 

102 RERD Xa> 

103 NEXT 

104 REM 

105 REM 

110 FOR 1=1 TO 16 

111 PRINT CHR'*<Ma>); 

112 NEXT 

113 PRINT 

114 REM 

115 REM 

120 FOR 1=20 TO 36 

121 PRINT CHR* <X< I ::0 ; 

122 NEXT 

123 PRINT 
200 REM NAME. 

2 1 DATA 42 , 32 , 7 1 , 69 , 82 , 72 , 65 , 82 , 68 

220 DATA 96 , 67 , 79 , 78 , 82 , 65 , 68 

230 REM VARIABLE 

240 DATA 100.. 100. 100 

250 REM COPYRIGHT 

260 DATA 42 , 32,67 , 79 , 80 , 89 , 82 , 73 , 7 1 

270 DATA 72 , 84 , 32 ,113,114,111,119,121 

300 REM VERWENDUNG DER VARIABLEN 

301 REM HIER ALS ADDITION 

310 x=x a 7 > +x < 1 8 > +x >: 1 9 > 

320 PRINT X 
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Sortieren 
nach Konten 

Sortieren nach Konten 

Es besteht schon eine Reihe von Programmen, die Betrage auf Konten 
sortieren. Jedoch werden nur diese, aber keine weiteren Informationen 
mitsortiert. 

Dieses Programm sortiert nun einen ganzen Eingabeblock auf ge- 
wiinschte Konten. Es konnen, auch gemischt eingegebene, numerische 
und alphanumerische Daten sein. Die Ausgabe erfolgt nach aufsteigend 
sortierten Kontonummern. Das Programmbeispiel ist einfach gehalten, 
um den Ablauf zu verdeutlichen. Deswegen geschieht auch das Ein- 
lesen der Werte mit READ/DATA, obwohl diese nachher im prak- 
tischen Betrieb besser uber INPUT abgefragt werden. 

Fiir die Werte sind die Felder 

K = Kontonummer 
B = Betrag 
TS = Text 

dimensioniert. 

Betrachten wir die erste Eingabe (I =1), dann sind folgende Werte 
gespeichert 

K(l) = 12 B(l)= 45.90 TS(D = BENZIN 

Das geht —For I = 1 to N— bis alle DATA-Zeilen abgearbeitet sind. 
Die Sortierung veranlasst die Variable R. Das Beispiel beginnt mit der 
Kontonummer 10. Deshalb ist in Zeile 300 R = 10gesetzt. R wird mit 
jedem FOR . . . NEXT Durchlauf , wenn K(l) =0 ist, incremiert. 

Beim ersten Durchlauf sortiert die Zeile 

320 IF K(I) = R THEN PRINT K(I);B(I);TS(I) 
alle DATA-Zeilen mit k = 10 heraus. PRINT schreibt dann den ganzen 
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Eingabeblock 

Konto No., Betrag, Text 
auf den Schirm. 

Dann erhdht Zeile 340 R urn eins auf elf. Mit GOTO 310 beginnt die 
Sortierung von neuem, bis alle Kontonummern abgearbeitet sind. 

IF R = 13 beendet das Programm. 

Die Vergleichsvariable R ermoglicht beliebig viele und beliebig viel- 
stellige Kontonummern mit dazu gehorenden Betragen und Texten zu 
sortieren. 

1 PR I NT "VON GERHARD CONRADS RBGEflENDERT" 

2 PR I NT "VON W.HOFflCKER" 

1 P0KE5328 1,?- FQKE53230 , 3 

29 PRINTCHR*a44? 

25 PR I NT "IT 

91 REM MIT BETRAG UND TEXT 

92 REM BE I SPIELS 

93 REM HRUSHRLTS-BUCHFUEHRUNG 

94 REM KONTO 10 = LEBENSMITTEL 

95 REM KONTO 11 = GENUSSMITTEL 

96 REM KONTO 12 = AUTO KOSTEN 
9? REM 

93 REM 

106 I--N20 = J=l 

110 DIM K<20>,B<20>;T*<20> 

200 FOR 1=1 TO N 

2 1 REM I NPUT " KONTO : " .; K ( I > 

211 READ [<a> 

220 REM I NPUT " BETRAG : " j B < I ) 

221 READ B(I) 

230 REM I NPUT " TEXT ■ " > T$ < I > 

231 READ T*<IJ 

240 IF K<I>=0 THEN 3G0 

250 NEXT I 

300 R=l@ 

310 FOR 1=1 TO N 

320 IF K(I)=R THEN PRINT K< I > ; B< I > , T* ( I ) 
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330 IF R=13 THEN END 

340 IF K(I)=0 THEN R=R+1 = PRINT": GOTO 310 

359 NEXT I 

500 DflTfl 12,45.90,BENZIN 

505 DflTfl 19, 27. 40, FLE I 3CH 

5 1 DflTfl 1 1 , 23 .. 90 , B I ER 

5 1 5 DflTfl 1 , 5 . 67 , BROETCHEN 

52© DflTfl 1 2 , 78 . 6© , REPflRflTUR 

525 DflTfi 10,17. 25 , GEMUESE 

S30 DflTfl 12,45„50,GflRFlOEN MIETE 

535 DflTfl ll,8.9S,W0DKfl 

540 DflTfl 10,19.15 , flUFSCHN I TT 

545 DflTfl ll,52.60,GRILL"PflRTV 

550 DflTfl 0,0,0 
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Korrektur 



Korrektur 

Die Anweisung INPUT ist sehr benutzerfreundlich. Sie fragt hoflich 



Bitte Konto 
Bitte Betrag 
Bitte Text 



? 
? 
? Abbrechen durch Driicken der "*" Taste ! 



Aber diese Routine kann unfreundlich enden. Dann namlich, wenn 
falsch eingegeben und mit RETURN abgeschlossen wurde. Jetzt bleibt 
nur eine Moglichkeit: mit BREAK aus dem Programm zu gehen. Alle 
eingegebenen Daten sind verloren. Dieses Modul gestattet nun die 
Korrektur falscher Eingaben. Ober die Abfrage "KORREKT J/N" 
ist eine Kontrolle und Korrektur der gespeicherten Werte moglich. Ein 
einfaches Textbeispiel erklart den Ablauf . Geben Sie ein kurzes Gedicht 
Wort fur Wort ein: 



AS 


N 


DAS 


(1) 


WANDERN 


(2) 


IST 


(3) 


DES 


(4) 


MUEHLERS 


(5) 


LUST 


(6) 


* 


(7) 



Die Abfrage in Zeile 230 schreibt jetzt bei KORREKT = J iiber NEXT 
und der PRINT-Anweisung in Zeile 220 jedes Wort zur Kontrolle auf 
den Schirm. 

Wenn KORREKT = N, wie in AS(5), wird K = 1, L = N gesetzt und 
zurilck in den INPUT gesprungen. 

Eine neue Eingabe beseitigt jetzt das falsche Wort. Durch die Bedingung 
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in Zeile 140 IF K = 1 THEN 200 

meldet sich dann wieder der Text "KORREKT J/N". Die Zuweisung 
der Variablen L = N vermeidet alle als bereits richtig erkannten Werte 
noch einmal abzufragen: 

Das falsche Wort steht in N(5). 

Die Zeile 260 setzt daher K = 1 und L = 5. 

Die Schleife in Zeile 200 arbeitet nun 

FOR N = L TO 20 also 

FOR N = 5 TO 20 

Somit beginnt sie bei dem korrigierten Wert in N (5). 

Mit AS(N) = "*" schreibt die Schleife ab Zeile 300 den gesamten Text 
aus und das Programm ist beendet. 

1 13 P0KE5328 1 , 7 : P0KE53280 , 3 
28 PRINTCHR*<144> 

90 REM EINGRBE UEEER INPUT 

91 REM EI--IDE MIT * 

92 REM PiBFRRGE OB RICHTIG 

93 REM KORREKTUR WENN ME IN 
100 DIM fl$<::20> 

110 N=l : L=l 

120 INPUT" TEXT : " .: fl$<N> 

130 IF fi*<N )*'■'*" THEN 200 

140 IF K"l THEN 200 

150 N = N+l 

160 GOTO 120 

200 FOR H = L TO 20 

210 IF fl$<N>= H #" THEN 3Q@ 

228 PRINT ma-V:-< 

238 PR I NT "KORREKT J/N " 

248 GET T* : IF T* ="" THEN 248 

250 IF T* ="J" THEN NEXT 

268 IF T* ="N" THEN K=i : L=N '• GOTO 129 

308 FOR N = 1 TO 20 

310 IF fl$0-0 = "*" THEN END 

328 PRINT R*<N>" 

330 NEXT 
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AND, OR, NOT 



AND, OR, NOT 

AND, OR und NOT sind niitzliche Programmierhilfen. Leider ist nur 
sehr wenig iiber ihre Anwendung in den Handbuchern oder der Literatur 
verzeichnet. Deswegen hier einige einfache Beispiele. 

AND 

AND verkniipft numerische oder alphanumerische Werte. Diese Routine 
verkniipft Worte. Nur bei Eingabe in richtiger Reihenfolge und der 
richtigen Werte ist die Bedingung 

AXS = BLAU AND BXS = GRUEN 

erf Gilt. Es erscheint RICHTIG auf dem Schirm. Andernfalls druckt 
Zeile 150 FALSCH und Zeile 160 springt zuriick in den INPUT. 

OR 

OR verkniipft Oder-Bedingungen. Sind z. B. aus einer umfangreichen 
Adressen-Datei gezielte Abfragen erwiinscht, so macht OR es moglich. 
Ein Programmansatz ware 

IF AS = "BERLIN" OR AS = "HAMBURG" OR 
AS = "MUENCHEN" THEN . . . . 

dann erscheinen nur die Berliner-, Hamburger- und Miinchner Adressen 
auf dem Bildschirm. Hier aber ein Beispiel mit numerischen Werten. 
Das Programm sucht nach geraden Zahlen. Die Zeile 210 priift die 
Variable A ob es sich um 

A = 2 OR A = 4 OR A = 6 usw. 

handelt. Wenn ja, ist die eingegebene Zahl ein gerader Wert. Sonst 
erscheint UNGERADE auf dem Schirm. 
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NOT 

Die NOT-Verknupfung verhindert die Ausgabe eines bestimmten 
Wertes. In dem Beispiel der Adressen-Datei konnte 

IF NOT HAMBURG THEN PRINT 

den Ausdruck aller Hamburger Adressen unterbinden. Das hier gezeigte 
Beispiel arbeitet mit der Zahlenreihe FOR I = 1 TO 10. Die Zeile 

310 IF NOT I -9 THEN PRINT I 

schreibt dann alle Zahlen aus, nur nicht die Ziffer Acht. 

Bei dieser Verkniipfung ist die Bedingung NOT X = — (X+1) zu be- 

achten. Um also die Acht nicht auszudrucken, muB NOT I —9 sein. 

AbschlieBend eine kleine praktische Routine mit NOT. Eine Codezahl 
sichert ein Programm so ab, daB ein unbefugter Anwender dieses nicht 
starten kann. Die erste Zeile fragt nach dieser Schliisselzahl. Wird sie 
falsch eingegeben, loscht NEW das gesamte Programm. Und hier das 
Listing: 

10 INPUT"SCHLUESSELZAHL :";C «- Schlusselzahl = 

20 IF NOT C -4712 THEN NEW 471 1 eingeben 

Programm Anfang 

Wer die Ausfiihrungen iiber NOT aufmerksam gelesen hat, wird sicher 
den Code brechen und die richtige Schlusselzahl fiir diese Routine 
finden. 

1@ POKE 53281, 7:P0KE53288,3 
20 PRINTCHR*<144> 

97 REN AND VERKNUEPFUNG 

98 REM IF FNX'RND B=V THEN 

99 REM #######*####**##### 
108 fi* » "BLflU" 

110 B* = "GRUEN" 

120 INPUT "BUTE ERSTE FflRBE ■■ " ; flX* 

1 30 I NPUT " B I TTE ZWE I TE FflRBE : " ; BX* 

140 IF fl*=RX* FIND B*=BX* THEN PRINT" RICHTIG !" : E 
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158 
1 60 
1 94 
195 
196 
197 
19:3 
199 

200 

210 

NT"G 

220 

'"' j"! '~j 

296 
291 
292 
293 
294 
295 
296 
297 
298 
299 

300 

3 1 
320 



PRINT'TRLSCH !" 
GOTO 100 
REM 
REM 
REM 

REM OR VERKNUEPFUNO 
REM IF R=X OR E=V THEN 
REM ****************** 
INPUT" BUTE ZRHL ZWISGHEN 1 BIS H3".;fl 
IF R=2 OR R-4 OR fl=6 OR R=8 OR fl=10 THEN PR I 
SERRDE ZRHL" :'GOTO 299 
PRINT'MJHGERflrjE ZfiHL" 
GOTO 20O 
REM 
REM 
REM 

REM HOT VERKNUEPFUNO 
REM NOT X : = -(X+i::i 
REM **************** 
REM RUS HER ZRHLENREIHE i - 10 
REM RLLE ZRHLEN DRUCKEN 
REM RUSSER (NOT) 8 
REM NOT 8 = -<8+l) « -9 
REM ******************* 
REM 

FOR I = 1 TO 10 
IF NOT I -9 THEN PRINT I 
NEXT I 
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Links Scrollen 



Links Scrollen 

Geben Sie dieses Programm ein, starten Sie es, und beobachten Sie den 
Bildschirm. Die ideale Routine zum Einbauen in Ihre eigenen Pro- 
gramme. 



100 REM SCROLL TO LEFT 

110 F0RX=8T0168 

120 READ Z 

130 P3KE49152+X,Z 

140 NEXTX 

1 50 POKE53270 , PEEK k 53278 > AND247 

160 P0KE53278, < PEEK < 53270 >flHD24S> +7 

170 FORP=6TO03TEP-1 

1 80 P0KE53270 , < PEEK < 5327© > AMD243 > +P 

200 HEXTP 

210 SVS'::49152:: 1 

220 GOTO 170 

240 DATA 1 63 , 7 , 1 3 .• 22 .. 298 ,141 , 22 , 20S 

250 DflTFI 1 62 , , 1 89,1.4,157,0,4 

260 DATA 1 39 , 4 1 , 4 ,157,40,4,1 89 , 8 1 , 4 ,157,80 , 4 

270 IiflTfl 139,121,4, 1 57 ,128,4,1 89 ,161,4,1 57 , 1 68 , 4 

230 DATA 1 83 , 20 1 , 4 , 1 57 , 280 , 4 , 1 39 , 24 1 , 4 , 1 57 , 248 , 4 

298 IiflTfl 1 89 , 25 , 5 , 1 57 , 24 , 5 , 1 89 , 65 , 5 , 1 57 , 64 , 5 

380 DATA 189,185,5,1 57 , 1 84 , 5 , 1 89 , 1 45 ,5,157,144,5 

3 1 3 DATA 1 83 ,185,5, 1 57 , 1 34 , 5 , 1 89 , 225 ,5,1 57 , 224,5 

328 DATA 1 89 , 9 , 6 , 1 57 , 3 ,6,1 89 , 43 , 6 , 1 57 , 48 , 6 

338 D AT'fl 1 89 , 83 , 6 , 1 57 ,88,6 , 1 33 , 129,6,1 57 , 1 28 , 6 

340 DATA 1 83 , 1 S3 , 6 , 1 57 , 1 68 , 6 , 1 89 , 289 , 6 , 1 57 , 288 , 6 

358 DATA 1 89 , 249 ,6,157,243,6,139,33,7,157 , 32 , 7 

368 DATA 1 39 , 73 , 7 , 1 57 , 72 , 7 , i 39 , 1 1 3 , 7 , 1 57 ,112 , 7 

378 DATA 1 89 , 1 53 , 7 , 1 57 , 1 52 , 7 , 1 33 , 193,7, 1 57 , 1 92 , 7 

338 DflTfl.232 , 224 , 48 , 248 , 3 , 76 , 1 8 , i 92 , 96 
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Mini max 



Minimax 

Statistische Probleme erfordern oft die Ermittlung einer Kleinsten-, 
GroBten- und Durchschnittszahl. Tiefst-, Hochst- und Durchschnitts- 
temperaturen konnen es bei Umweltdaten sein. Eine Angebotsdatei 
nach gleichen Kriterien ausgewertet, macht das Preis/Leistungsver- 
haltnis transparent. 

Dieses kurze Programm ermittelt nun alle diese Werte. READ P liest 
die Zahlen aus dem DATA-Block, sortiert sie und schreibt die Er- 
gebnisse auf den Schirm. 

Wichtig ist die Variable Y in Zeile 100. Sie muB groBer als alle einzu- 
gebenden Zahlen sein. 

Die Zeilen 130 bis 150 berechnen den Durchschnittswert. N = N + 1 
stellt die Anzahl, PA = PA + P die Summe der Werte fest. Summe 
dividiert durch N ergibt dann in Zeile 150 den gerundeten Durch- 
schnittswert. 

Die Zeilen 160 bis 180 suchen den kleinsten Wert (Y) und den groBten 
Wert (X). 

Minus Eins beendet das Sortieren und 

120 IF P = — 1 THEN 300 
veranlasst den Sprung in die PRINT-Anweisungen. 

1 P0KE5328 1 .■ 7 : POKE53280 , 3 

2 PRINTCHR*<144;> 

3 PRINT"!!" 

11 REM GROESSTE/KLEINSTE ZFH-IL SUCHEN 

12 REM DURCHSCHNITTSWERT 

13 REM RHZRHL DER WERTE 

14 REM ENDE -1 
100 K=l '■ V=2©@©0 
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110 READ P 

120 IF P*-l THEN 30© 

130 H=H+1 

140 PflaPfl+P 

1 50 PB«PfVN : PB= I NT '•. PB+ . 5 ) 

160 IF K*l THEN X=P : V=P ■ K=2 

170 IF P<V THEN V«P 

180 IF P>X THEN X=P 

190 GOTO 110 

300 PR I NT " DURCHSCHN I TTSWERT ■■ " ; PE 

310 PRINT !, KLEINSTER WERT '• " ; V 

320 PRINT"HOECHSTER WERT = "JX 

330 PRINT-'flNZPHL HER WERTE = " ; N 

500 DATA 2200.. 9990, 475.. 350, 777 

5 1 O DflTR 1 9850 , 8875 , 325 , 6500 , 4525 . 



44 



Zeitdifferenz 



Zeitdifferenz 

Eine Zeitdifferenzberechnung in Monaten ist fur viele Zwecke aus- 
reichend. In einer Inventur muB die Lagerdauer einer Ware nicht 
auf Tage bestimmt werden. 

Dieses Modul ermittelt nun die Zeitdifferenz zwischen eingegebenem 
Anfangs- und Enddatum. 

Die Eingabe erfolgt: Jahr Jahr Monat Monat (JJMM). Eine Division 
durch hundert zerlegt diese Zahl in ihre Komponente Jahr und Monat. 

Fur April 1978 ist das dann z. B. die Bruchzahl 
7804:100 = 78.04 

INT(78.04) rechnet das Jahr heraus. 

So wird in Zeile 130 die Differenz der Jahre bestimmt und in Z1 
abgelegt. 

Die Differenz der Monate berechnet Zeile 135 bis 160. Grundlage ist 
die bereits vorliegende Bruchzahl. Der Rechengang fur das Beispiel 
April 1978 ermittelt durch Subtraktion 

JJMM : 100 = 78.04 

-INT(78.04) = 78 

0.04x100 = 4 

als Resultat vier Monate. 

Anfangs- und Endmonat differenziert, und Z1 addiert ist dann die 
gesamt Zeitdifferenz. 
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Als Beispiel: 




Jahre Monate 


Enddatum 


JJMM 8001 


80. 01 


minus Anfangsdatum 


JJMM 7804 


78. 04 


Differenz 




2(*12)-03 = 21 



Die Zeitdifferenz ist also 2 Jahre mal zwolf minus 3 Monate = 21 
Monate. 

Um das Programm fur eigene Zwecke verwenden zu konnen, miissen Sie 
in den Zeilen 100 und 110 die REM-Befehle loschen, sowie die Zeilen 
101 und 111 ganz entfernen. Sie konnen dann eigene Werte eingeben 
und das Programm selbst testen. 



2 P0KE5328 1 , 7 '• POKE53280 , 3 
4 PRINTCHR*<144) 
6 PR I NT "3" 

11 REM OFT GENUEGT EINE ZEIT- 

12 REM DIFFERENZ IN MONRTEN.. 

13 REM ZE. : ALTER VON ARTIKELN 

14 REM EINES WRRENLfiGERS. 

109 REM INPUKfiNFflNGSDATUM JJMM '• " ; fl 
101 R=7804 

110 REM -INPUT "ENDDflTUM JJMM = " ; E 

111 E«8001 

115 REM DIFF.JJ - JJ MRL 12 

120 E1=E/100 : fll=rV100 

130 Zl = < INKED - INKfii;0*12 

135 REM DIFF. MM - MM 

140 M1=E1 - INKED 

150 M2=fll ~ INK FID 

160 M3=<M1-M2>*100 

165 REM SUMME DIFF". J J + DIFF. MM 

170 ZZ-Z1+M3 •■ ZZ=INT'::ZZ+.5> 

200 PRINKDIFFERENZ =";ZZ" MONATE" 
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DM-Beitrage 



DM-Betrage 

Diese Routine sorgt fiir den Ausdruck geordneter Zahlenkolonnen. 
Betrage werden rechtsbiindig, Komma unter Komma und mit zwei 
Dezimalstellen abgestellt. Mit der Zuweisung W = A, W = B,W=...N 
in den INPUT-Zeilen formatiert die Subroutine beliebig viele Kolonnen. 

Die erste Zeile der Subroutine rundet die eingegebenen Zahlen, ver- 

wandelt sie in einen String und bestimmt mit LEN (WS) die Lange des 

String. 

Durch einen LEN Vergleich zerlegt dann Zeile 63030 den Betrag in eine 

Ganz- und eine Nachkommazahl. 

Betrachten wir zunachst die Zahl hinter dem Komma. Wenn zwei- 
stellig (5.95), ist alles in Ordnung. Wenn einstellig (5.9) werden die 
fehlende Null, bei einer Ganzzahl (5) beide fehlenden Nullen und der 
Oezimalpunkt hinzugefiigt. 

Das veranlassen die Zeilen 63050 und 63060. Die rechtsbiindige 
Formatierung erfolgt durch Spaces der Zeilen 63090 bis 63160. Spaces 
wurden gewahlt, weil ein angeschlossener Drucker TAB nicht annimmt. 
Fiir die Bildschirmausgabe ist eine Programmierung mit TAB-An- 
weisungen einfacher. 

Den Ablaut steuert Y3. Dieser Variablen wurde in Zeile 63030 die 
Lange des Zahlenstring zugewiesen. 

Y3 und die IF . . . THEN-Bedingungen fiillen nun das Feld vor deraus- 
zudruckenden Zahl mit so vielen Spaces auf, daB diese rechtsbiindig 
steht. 

Die Zeile 40 enthalt die PRINT-Anweisungen und eine Wertstellung. 
Hier sind es DM. Es konnen aber auch mA, Meter, Kilometer usw. sein. 
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2 POKE 53281'..?:POKE53280,3 
4 PRIHTCHR$c:i44) 
6 PR I NT "IT 

11 REM ZWEI NRCHKOMMFlSTELLEN 

12 REM RECHTSBUENBIGE 

13 REM FORMRTIERUNG DRUCKER 

14 REM ■ DURCH "SPACES" 

15 REM 

16 REM 

19 REM INPUT UND PRINTflNWEISUNGEN 

29 INPUT fl ■■ W*fl : GOSUB 63&QQ : R$»U* 

30 INPUT B = W==B = GOSUB 63090 : B*=U* 
40 PRINT n$" DM";B*" DM" 

50 GOTO 20 

80 END 

81 REM 
32 REM 

83 REM SUBROUTINE AUSWERTUNG UND 

84 REM SPACES FUER DRUCKER 

63000 W= I NT C 1 00 * 14+ . 5 ) / 1 00 : W*=STR* < W > 

63010 V1=LEN<W*> 

63020 IF W <1 THEN 63290 

63030 V2= I NT CW > ; Y*=STR* < V2 ) : V3=LEN <'. Y* > ■ Z=V 1 - V3 

63040 IF Z^3 THEN X**W* 

6305O IF Z~2 THEN Z**"0" : X*=W*+Z* 

63060 IF Z=0 THEN Z*~" . 90" : X**W*+Z* 

63990 IF V3=7 THEN Zl$=" 

63100 IF V3=6 THEN Zl**" 

63119 IF V3=5 THEN Zl*=" 

63120 IF V3-4 THEN Zl$=" " 

63139 IF V3=3 THEN Zl$=" 

63140 IF V3=2 THEN Zl$=" 
63150 IF V3=l THEN Zl$«" 

63169 IF V3=0 THEN Zl*«" 

63170 U**Z1*+'X* 
63189 RETURN 

63200 IF VI =3 THEN Z=2 : Y3*l : GOTO 63050 
63210 IF VI =4 THEN Z-3 : Y3-1 = GOTO 63040 
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Menu-Beispiel 



Menii-Beispiel 

Dieses kleine Programm zeigt Ihnen, wie man in etwa ein Menue auf- 
bauen konnte. Die einzelnen Programme werden dann automatisch 
von Diskette geladen. Man konnte aber auch an verschiedene Stellen 
in einem Programm springen. 



5 X=FRE<0) = P0KE45, : P0KE46, 35 : CLR : RUN 10 
10 G= 1 3*4096 = POKEG+32 , 5 = POKEG+33 , 3 

20 pr int" rasa" ; chr* < i 42 > ; ■■ x= 1 

30 PRINT TFlE(X>; "PROGRAMM UEEERSICHT" 

40 PRINT TABOO J" - 

50 PRINT 7f\BOO:."M\:> DEMO PROGRAMM" 

60 PRINT TflE<:X>; ,, W<2) ELCOMP SPfiSS" 

70 PRINT TflBOO;"H<3> ELCOMP BUSINESS" 

80 PR I NT TAB C X > ; " W< 4 > ALLERLE I " 

85 PRINT TflBOOJ")a<5> SUPERPROGRAMM" 

90 PRINT TRB<X>; ,, KWO»**IHRE WflHL***"; 

100 GET A* = ON-< A*=" " > GOTO 10© : fl-VAL^A*) '• IFA<10RA>5T 

HEN 100 

105 print "7Mfmmm»mmiRi\ geladen -bitte warten 

II 

110 ON A GOTO 120, 130, 140, 150.. 160 

12© LOAD "DEMO PROGRAMM", 8 

130 LOAD "SPFISS", 8 

140 LOAD "BUS IP", 8 

150 LOAD "STOCK", 8 

160 LOAD "SUPER" ,3 
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Tabellenvorlage 



Tabellenvorlage 

Dies ist wieder ein kleines Modul fiir unsere eigene Programmarbeit. Es 
erzeugt uns eine Tabelle auf dem Bildschirm. Die Werte fur Reihe und 
Spalte konnen eingegeben werden. Spalten konnen zwischen 1 und 12 
gewahlt werden und Reihen zwischen 1 und 41. Die Spalte beginnt 
dann bei der angegebenen Zahl und druckt drei Spalten auf den Bild- 
schirm. 



5 REM DfiS IST EIN TflBELLEN PROGRflMM 

7 PRINT CHR*<147>"BITTE WP.RTEN ..'';•• REM LOESCHEN 

10 DIM XX<14,50) 

20 FOR 1=1 TO 14 

30 : FOR J=l TO 50 

40 = = Xfi(L J) -1*1 00+ J 

50 : NEXT 

60 NEXT 

65 PRINT CHR*U9>; -REM CURSOR HOME 

66 FOR 1=1 TO 15 

67 : PRINT CHR$<17>; = REM NRCH UNTEN 
63 NEXT 

70 INPUT "SPflLTENEINGflBE Ci TO 12) +IMI" J C5i 

30 IF CVXl OR CX>12 THEN PRINT CHR*a45) ;: GOTO 7C 

90 INPUT'-REIHENEINGRBE a TO 41) +IHI" ; RK 

10© IF RX<1 OR RX>41 THEN PRINT CHR$< 145) ;: GOTO < 



105 PRINT CHR$U47); = GOSUB 1000 -REM LOESCHEN UND 

UEBERSCHRIFTEN 

110 PR I NT CHR* < 1 9 ) CHR$ a 7 ) = REM HOME+RUNTER 

120 FOR I-RX TO &V.+S 



130 
140 
150 
155 

50 



PRINT TPBC9); 

for j.=cy. to cr--:+2 

■• x$=str*''x:--:u,i)) 

: pr i nt spc <. 1 0-len >'. x* ) ) x* ; 



160 : NEXT 
165 : PRINT 
176 NEXT 

180 PRINT CHR*<17)CHR*C17>CHR*<i7V'WFJTER ? < .", np 

N> 
190 GET C*=IF C*0"J" AND C*0"N" THEN IS'O 
200 IF C*="J" THEN 65 
210 STOP 

1000 REM REIEHEN UND SPRLTEN UEBFPSHHPIFTFN 
1010 PRINT TRB(9); 
1020 FOR 1=1 TO 3 

1030 : PRINT CHR$(13>" SPRLTE"CHR*f 14fi^ : 
104O NEXT 
1050 PRINT: PRINT TfilKSO.; 

1060 for i=c-X' to cx+2 

1070 : S"i=7:IF K10 THEN SX=8 

1 080 ; PR I NT SPC < S'A > CHR* (18) STR* < I ) CHR* < 1 4f, "■< ; 

1090 NEXT 

1095 PRINT 

1110 FOR I=RX TO R'/.+S 

1120 = S"i=i:lF K10 THEN SX=2 

1 1 30 • PR I NT TAB < 2 > CHR* <'■. 1 8 > " RE I HE " SPC < s ?> ■> RTP* '• I "> r: 

HR*<146> 

1140 NEXT 

1150 RETURN 
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Adressenfeldmodul 



Adressenfeldmodul 

Dies ist ein kieines Modul fiir die Eingabe von Daten in den Rechner. Es 
dient in erster Linie als Beispiel und kann von Ihnen, auf die speziellen 
Wiinsche abgeandert werden. Es wird gezeigt, wie man in etwa die 
Adresseneingabe bei einer einfachen Adressenverwaltung programmieren 
kann. Die Werte stehen in Stringvariablen zur Abholung. 

CIS = Postleitzahl 
ZIS = Telefonnummer 
ST8 = Ort 
NAS = Name 
SR8 = StraBe 

Zum Aufbau einer eigenen Adressenverwaltung, miiBte man diese in ein 
Feld einlesen und abspeichern. 



10 REM NAME UND ADDRESSER EINGflBE 
20 REM flHZEIGE DES EINGflBE FELDES 
30 PRINT CHR* a 47 > CHR* a 7 V BUTE NAME UND flDRES 

E" 

40 PR I NT " " CHR* < 1 S V 1" CHR* < 1 46 > " NAME 

50 PRINT " "CHR*<lSy , 2"CHR*a46)" STR. 

60 PRINT " M CHR* <1 8 V' 3 "CHR* a 46 V' PLZ 

70 PR I NT " " CHR* ■'.'. 1 8 '.'•• "4" CHR* •:'. 1 46 > " ORT • " ■■ REMTf 

•:: 28 ::' CHR* (. 1 8 > " 5 " CHR* < 1 46 > " ZIP:" 

75 PR I NT " " CHR* < 1 8 ) " 5 " CHR* (. 1 46 > " TEL : " 

80 REM 20 ZEICHEN NAME HOLEN 

90 LNK*20 

92 P0*=CHR*<19> 

94 FOR 1=1 TO 7 

96 = P0*=P0*+CHR*a7'.:' 

98 NEXT 

1 0© PR I NT LEFT* < PO* , 3 :> TAB < 1 8 > ; 
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110 GOSUE 8000 : NR*=CC* 

120 REM 20 ZEICHEN FUER DIE STRflSSE 

1 36 PR I NT CHR* ■•'. 1 3 ) TAB < 1 ) ; 

140 GOSUE 8000 : 8R*=CC* 

150 REM 20 ZEICHEN FUER DIE PLZ 

1 60 F'R I NT CHR* < 1 3 > TAB (. 1 > ; 

170 GOSUB 800@:CI*=CC* 

180 REM 18 ZEICHEN FUER ORT 

135 LNK=1S 

190 PRINT CHR$(13>TRBa0::' : 

200 GOSUE 8000 : ST*=CC* 

210 REM 15 ZEICHEN FUER TELEF. 

220 LNK=15 

230 PRINT CHR*(13>TflB<10>; 

240 GOSUB 8000:ZI*=CC* 

250 REM EVENTUELLE flENDERUNGEN 

260 GU*="WOLLEN SIE NOCH ETNAS AENBERN ? ' 

270 PRINT PO*.: 

280 GOSUB 3000 

290 IF VN*="N" THEN STOP 

300 REM FRRGE NRCH BEM ZU RENBERNBEN FELB 

310 QU*="OEBEN SIE DIE FELDNUMMER EIN <1-J 

320 LOH=l =HIX=5 

330 GOSUB 3500 

340 ON NM"i GOTO 400,450,500,550,600 

400 REM HfiMENSflENBERUNG 

4 1 PR I NT LEFT* < PQ* , 3 > TAB < 1 '■' i ■ LNK=2@ 

420 GOSUB 8000 

430 GOTO 260 

450 REM STRRSSENflENBERUNG 

460 PR I NT LEFT* < PO* , 4 > TRB < 1 9 > .; : LH?i=2@ 

470 GOSUB 8000 : SR*=CC* 

480 GOTO 260 

500 REM RENBERE PLZ 

510 PR I NT LEFT* < PO* , 5 > TAB < 1 Q > ; = LNK=2@ 

520 GOSUB 8000:CI$=CC$ 

530 GOTO 260 

550 REM RENBERE ORT 

560 F'R I NT LEFT*<PO*,6>TAB<10> ■ -LN^IS 

570 GOSUB 8000 : ST*---"CC* 

580 GOTO 260 

600 REM RENBERE TEL 

6 1 PR I NT LEFT* ( PO* , 7 > TAB < 19); = LNK= 1 5 
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620 GOSUB ' 8000 : 'ZI*=CC* 

680 GOTO 260 

2000 REM LOESCHEN DER MOMENT ANEN CURSOR ZEILE 

20 1 © PR I NT " " CHR* >'. 1 57 '> CHR* '•. 1 57 > CHR* C 1 57 > CHR* ( 

157>CHR$(157>; 

2040 RETURN 

300© REM STELLE DIE FRRGE UND ENTSCHEIDE Jfl ODER 

NEIN 

30 1 PR I NT CHR* < 1 3 > CHR* < 1 45 > QU* ; 

3020 GOSUB 2000 

3030 GET VN*:IF YN*0"N" AND VN*<>"J" THEN 303© 

3040 PRINT VN*; 

3050 RETURN 

3500 REM FRRGE NflCH DER NUMMER 

3510 REM WfiHL WIRD IN HMX GESPEICHERT 

3520 REM NM7i MUSS KLEINER RLS HIK SEIN UND GROESS 

ER RLS LO% 

3530 REM PROGRAMM 8ETZT Hlfi.LOK UND QU*, ENTSPR.D 

ER FRAGE 

3540 PRINT CHR* <1 3) CHR*< 145>QU*; 

3^50 GOSUB 2000 

3560 get nm*:if nm*="" then 3560 

3570 nm;-:=val'::nm*> 

3580 if nmk<loji or nmsohix then 3560 

3590 PRINT NM*; 

3600 RETURN 

8000 REM STRINGS WERDEN IN EIN FELD MIT LNK ZEIC 

HEN EINGEGEBEN. 

8010 REM DER CURSOR MUSS AN DER ERSTEN STELLE IM 

FELD STEHEN 

8020 REM MIT RETURN WIRD DIE EINGAEE ABGESCHLOSSE 

N 

8040 REM DIE EINGEGEBENEN DATEN WERDEN NICHT GEPF 

UEFT 

SS50 REM DER EINGEGEBENE STRING WIRD IN DIE STRIb- 

OVARIABLE CC* GELEGT 

8060 ST"i=POS'::X:.>:REM HOLE FELD ZEICHEH POSITION 

:=:Fi7i"i PRINT CHR* (IS > :• ■ REM NEGATIVES EINGABEFELD 

:=;080 FOR 1=1 TO LNJi 1 - PRINT " " ; : NEXT 

3@q0 PP I NT CHR* < 1 46 ) CHR* < 1 3 > CHR* < 1 45 > TAB < ST5i > ; 

ft 100 REM EINGABE UND DARSTELLUNG DER ZEICHEH 

8110 CC**"" : J"i=0 

8120 FOR 1 = 1 TO LNTi 
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8125 
8 i 39 



JK=JK+l 

GET C*"-IF C**"" THEN 8139 
8148 = IF C*=CHR*U3> THEN I=LNX = GOTO 8176 
816Q ; PRINT C*; : CC$=CC$+r:$ 
8178 NEXT 

8190 REM REST VON CC* MIT LEERZEICHEN flUFFl FL i FN 
UND RUSGEBEN 

8200 IF J7i=LNE THEN 8308 
8218 FOR I=JK TO LHK 
8228 : CC$=CC*+" " 
8238 NEXT 

8380 PR I NT CHR* ( 1 3 > CHR* < 1 4^ ':> TAB ■:' STK ':■ f:<"::*: ; 
8318 RETURN 



55 



Zierrand 



Zierrand 

Dieses kleine Programm ist eine kleine Hilfsroutine, die Sie iiberall dort 
einbauen konnen, wo Sie Ihr Programm verschonern wollen. Es wird ein 
Rand rund um den Bildschirm gezeichnet. Die Farben wechseln. In 
Zeile 180 kann der Wert fur das ausgegebene Zeichen verandert werden. 
CH=218 ist das Zeichen fur ein Karo. 

110 ■• 

126 REH»» RUFBRU 

130 PRINT CHR*<19>; -'REM CURSOR HOME 

140 PRINT "RRHD-BRUCKER 

158 WD=40--REM BILDSCHIRMBREITE 

1 69 HT=25 : REM B I LDSCH I RMHOEHE 

170 J I =5 : REM VERZOEGERUNG 

1 80 CH=2 1 8 : REM ZE I CHEN , WELCHES GEDRUCKT W I RD 

1<90 C0=PEEK<646> : REM FRRBE DES CURSORS AM RNFRNG 

200 REM»» SETZE GRRFIKMODUS 

210 PF- :~ , T CHR$<142> 

220 REM»» STRINGBEHRNBLUNG 

230 TP*=CHR*a9):REM CURSOR HOME 

240 FOR 1=1 TO WD 

250 : TP*=TP$+CHR*<CH> '■ REM RUFBRU BES OBEREN STR 

NGS 

260 NEXT 

270. FOR 1 = 1 TO WH-2:REM RUFBRU DER SEITENLINIEN 

280 = SB*=SD*+CHR*<29> 

230 NEXT 

300 SD*=CHR* >, CH > +SD*+CHR* ( CH > 

310 BT$=Min*(TPf-,3> -REM RUFBRU BER UNTEREN ZEILE 

1000 ■■ . 

1010 REM»» UNTERPROGRRMM FUER WIEBERHOLUNG 

1030 GOSUB 2020 ; GOTO 1030 

20O0 : 

2010 REM»» UNTERPROGRRMM FUER RRND DRUCK 
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2820 PRINT TP*;:REM OBERE LI HIE 

2030 FOR 1=1 TO HT-3 

2040 : GOSUB 3030: REM flNZRHL DER LUECKEN ZWISCHEH 

BEN ZEILEN 
2050 = PRINT 3D*;: REM SEITENLIHIEN 
2060 NEXT 

2070 PRINT SH:f .; = IF WIKLL THEN PRINT: REM LETZTE S 
EI TEN LI HIE 

2080 PRINT BT*.::REM RLLES BIS flUF DEN LETZTEN PUN 
KT UNTEN 

2090 fiB~PEEK •:: 209 > +256*PEEK '■ 2 1 @ > +PEEK < 2 1 1 > : REM HI IR 
SOR RDRESSE 

2100 PO=CH RI--ID 63: IF CH fiND 123 THEN PO=PO OR 64: 
REM POKE WERT HOLEN 

2119 POKE RD,PO : REM LETZTER PUNKT WIRD GEFUELLT 

2120 POKE FlD+54272, PEEK ( 646 >: REM FfiRBWERT FUER CU 
R30R 

2130 C0=C0+l:lFC0>15 THEN COS 

2140 POKES 46. -CO 

2150 RETURN 

3000 : 

30 1 REM»» ZE I TVERZOEGERUNGSROUT I NE 

3030 T1=TI+JI :REM ENBE SETZEN 

3340 REM GUELTIG flUCH UIENN UHR BE NULL 

3050 IF Tl>5 183999 THEN T1=T 1-5 184900 

3060 IF TKT1 OR T I >5 184900- J I THEN 3060 : RFM WflPT 

E 

3070 RETURN 
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Arbeitszeit/ 
Stundenberechnung 

Arbeitszeit/Stundenberechnung 

Dies ist ein kleines Modul zur Bestimmung der Arbeitszeit. Sie konnen 
den Arbeitsantritt und das Arbeitsende eingeben und erhalten die voile 
Stundenzahl. Beispiel 8.30 fur Anfang und 16.45 fur Ende (den Punkt 
nicht vergessen !). 



1 P0KE5328 1,7: POKE53280 > 3 

2 PRINTCHR*<144> 

1 FORX* 1 T025 = PR I NT : NEXTX 

20 RR=0 : FR*=''EINGRBE FEHLER ! " 

30 PRINT"RRBEITSBEGINN <UHRZEIT> = "J 

40 INPUT I* 

50 F0RI=1T05 

60 I FM I B* < I X > 1 , 1 > » " . " GOTOS0 

70 NEXT I: PR I NT "PUNKT FEHLT ! " '■ GOTO40 

80 IFI=1THENPRINT"KEINE ZRHL VOR BEM PUNKT ! " : G 

GTG40 

90 FORJ=lTOLENa*> 

1 00 fl=RSC < M I D* a * j J > '> 

110 1 F <. R<480Rfl>57 ) RNBN0Tfi=4STHENPR I NT " KE I NE ZRHL 

! " : GGTO40 
120 NEXT J 

1 30 S=VRL < LEFT* <.l * , I - 1 > > : f1= VRL < M I B* < I * * I + 1 ) > 
140 IFS<0GRS>24THENPRINT"KEINE GUELTIGE EINGRBE 
! " : GOTO40 

1 50 I Fn<0ORN>60THENPR I NT " M I NUTENE I NGRBE UNGUELT I 
G ! " : GOTO40 
160 IFRR=1THENGOTO210 
170 Pl$=niB$a$,l,2> 
180 RN=S'*60+n 
1 90 PR I NT '• PR I NT : I NPUT " RRBE I TSENBE < ZE I T >■ 'MI* 

200 I*«II*--flfl-l:GOTO50 
210 P2*=MIB*ai*,l,2> 
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228 I FVRL < P 1 $ > >VRL < P2* > THENPR I NT " " TAB < 9 > i FR$ : FO 

RI 1"0TO20@0 : NEXT : GOTO20 

236 E=S*66+M 

240 2T= I NT < CE-RN > ■ / 38+ . 99 > /2 

250 PR I NT: PR I NT '•PR I NT 

260 PRINTTRBO); "- " 

270 PRINTTRB<7>" RN2RHL HER STUNBEN : " ; ZT 
230 PRINTTRB(9>; " " 
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Einfaches Joystick- 
Testprogramm 

Einfaches Joystick -Testprogramm 

Dieses Programm erlaubt Ihnen den Test eines Joysticks, der an Joy- 
stickport 2 angeschlossen ist. Von vorne gesehen der hintere Joystick- 
anschluR. Achten Sie bei der Eingabe genau auf die Graf iksymbole. 

1 P0KE53281, SPRINT"" 

2 PRINT''-3B)mD(WW»»ll»llilC0MM0D0RE 64 PROGRflMMM" 

4 PRINT" MJOVST I CKS " : F0RT= 1 TQ3808 ■• NEXTT 

5 PRINT'SHM STECKEN SIE DEN JOYSTICK IN PORT 2" 

6 PRINT" MIRGEND EINE TRSTE" 

7 GETfl$:lFfl*= !, "THEN7 

8 PR I NT" 3K1 JOYSTICK BEWEGEN UNB FEUERKNOPF DR. " 

9 FORT=iTO20@0:NEXTT:PRINT"T 

ii n$= " m i m i nrtniiinoRD " 

12 NE*="n^KTTW0RD0ST" 

13 E$=" > OST" 

14 SE*="WS»SMan»SUEDOST" 

15 S^ftnLUIIftlllKglHISIJED" 

16 su$»"]alll^lll/alldr«Hl■l■■l■llleuEDNEST ,l 

17 U$="IIUIIIIII€ST*- ; ' 

1 8 NW*= " MrKliKTIirnillMMMIWORDWEST " 

19 FB$="5KIW FEUERWIIir-.MBr-'" 

20 PR I NT " 3" = B=PEEK < 56320 ) '• I FB< 1 1 2THENPR I NTFB* 

21 PRINT" iMslBMjTp^Mpj jh j, f SSS!f S ^ ?S |3 j jjpijpf, < ■ 

25 N=126 = NE=1 18 : E=l 19 = SE=1 17 ■' 3=125 : SW=121 : W=123' : NU=122 

31 I FB=N0RB= 1 1 OTHENPR I NTN* 

32 I FB=NE0RB= 1 02THENPR I NTNE* 

33 IFB=E0RB=183THENPRINTE* 

34 IFB=SEORB=i01THENPRINTSE* 

35 IFB=S0RB=189THENPRINTS$ 

36 IFB=SW0RB=185THENPRINTSW$ 

37 IFB=WORB=107THENPRINTW$ 

38 I FB=NW0RB= 1 86THENPR I NTNW$ 
40 GOTO20 

1 08 F0Rfl= 1 TO 1 0080 = PR I NTPEEK ( 56320 ) : NEXT AL I ST 
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Verbessertes 
Joystickprogramm 

Verbessertes Joystickprogramm 

Mit diesem Programm konnen Sie alle Joysticks auf Kompatibilitat mit 
dem VC-64 priifen. Nachdem Sie den Joystick in Port 2 eingesteckt und 
das Programm gestartet haben, sollten Sie den Stick in alle Richtungen 
bewegen und den Feuerknopf driicken. 

Die gedriickte Richtung, betatigter Feuerknopf und der zugehorige 
Registercode werden ausgegeben. Stellen Sie auf Ihre Joystickbe- 
wegungen keine Reaktion fest, dann ist der Joystick nicht kompatibel. 

1 P0KE53231.. 1 : PR I NT "S3" 

2 PRINT"nmil«D(WD(Wii»Mi|i|i*ICOMM0D0RE 64 PROGRHMMK" 

3 PRINT" TEST FILLER COMPRTIBLEN" : PRINT" JOVSTICKS" 

4 FORT= 1 T03080 : NEXTT : D I MN* < 38 ) , M* < 36 ') 

5 PR I NT" mm JOYSTICK FIN CONTROL PORT 2 flNSCHLIESSEN 
S PRINT" XWENN FERTIG,TRSTE PRUECKEN 

7 OeTfl*-- IFfl*»""THEH7 

3 PRINT'TJKBEUEGE JETZT DEN JOYSTICK ODER DRUECKE DEN FEUERKNOPF! 
1 FORT=1TO2C100:NEXTT:PRIHT"^" 

N=126:NE=11£J:E=119:SE=117:S=125:SW=121 : W=123 : HW=122 : WU-126 

1 N*<26> = "miliniiniTniiliH0RDEN" 

2 N* (. 1 S ;• = " m-T-'TTlPBHORIiOSTEH " 

3 N*<195="3- — > SCSTEH 

4 N* <1 7 > = " mSKM-JflarHffliSUEDGSTEN " 

5 n* < 25 > = " nan inniaii KsrcsMfiisuEDEN 

6 H* < 21} = " nKHl^lHl^lHliSr*9!lBIEIBiHDIBiSUEnMESTEN 

7 N*<235 = "IBBBBBiBBBBBHWESTEN r> " 

1 S N* < 22 y = " MnVMhClBmBBBBBBBMBBNORIiWESTEN " ■ GOSUB 1 1 1 

19 FE*="HBWB FEUERMIBS.-.WWr-'^" 

20 PR I NT "H" : B=PEEK< 56326:) : IFB<1 12THENPRINTFB* : Wfi=129 ; G0T022 

21 PRINTF1S 

22 G0SIJE522 

30 I FWWOBTHENPR I NTMt < WW- 1 00 > : G0SUB522 : PR I NTH*- '.. B- 1 80 > ■ WH=B : GOT070 

35 G0T07G 

70 PRINT" ^™fiMKIM«««MW5M*M«H«»*»»BB»»BK0IiE= " ; PEEK >■. 56320 > : GOTO20 

in M*<26)="ni "ii "li rriflBi 

112 wa3)="i n n iti 

113 ri*aso=" 

ii4 m*< 17 ;•=":« :s :« bs 

115 ri*i;25:>=":ai mi mi .samum " 

116 m$c2i:>=":«ibi :ani mbi seiBBBBBBEBBBi 

117 M$<23:> = "IBBBBBflBBBBBl 

113 r«(22:)="iBn nwi riBi ^ibbbbbbbbbbi 

119 F1*="««W MBBI "Ml 

300 N* (18) =N* < 26 > : N* (. 2 > =N* < 1 3 > ■ N* C 3 > =N$ (19):H*(1 :> =N* (17):NtO) =N* < 25 > 

310 N*<5)»N*C2n : N*-<7>=H*<23):N*<6)»N*C22) 

400 M*<10>=l"1*<26) :M*<2>=MS<18:> ; tit < 3 > =1*1* <1 9 > : HI(U=M$a7) ■MI(.9)=P1$(25) 

410 M*<5>=M*<21>:M*<7)=M*<23> : M*<6>«I1*<22> 

420 RETURN 

522 PRIHT"SWt«S«KSS«K!«»|iBI|i|i|iBiiBBli»|i|ii»BPIiBE»".; RETURN 
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Kleine Tricks Nr. 1 



Kleine Tricks Nr. 1 



1 P0KE5323 1,7: P0KE5328Q , 3 = PR I NTCHRf C 1 44 > 

2 FOR 1 = 1 TO 500: NEXT I 

3 PR I NT "KLEINE TRICKS NR.l" 

10 PRINT"DflS flNFUEHRUNGSZEICHEN KANN BEIM SAV 
EVORGANG AM ENDE DES NflMENS 
20PRINT"WEGGELASSEN WERDEN 

30 PRINT"DASGLEICHE GILT BE I PRINT-STATEMENTS 

31 PR I NT "BE I BENEN NACH BEM TEXT 
36 PRINT"KEINE'SPflCE'MEHR KOMMEN. 

50 PRINT "LISTEN SIE EINMflL BIESE PROGRAMM UND SI 

EKOENNEN ES LEI CUT ERKENNEN ! 

60 PRINT"ETWAS AAUFPAS3EN MUSS MAN flUCH BE I" 

70 PR I NT "BEM FOLGENBEN BEISPIEL:" 

80 PR I NT " BBS I ST : PR I NT " HELLO " 

90 PR I NT "ALSO WENN EIN BEFEHL IN BER OLE I CHEN" 

100 PRINT"ZEILE KOMMT.BANN MUSS BAS ANFZ„ GESETZT 
n 

110 PR I NT " WERDEN" 
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Kleine Tricks Nr. 2 



Kleine Tricks Nr. 2 



1 PR I NT " 3" ■ P0KE5328 1,7: POKE53230 , 3 : PR I NTCHR* <. 1 44 
y 

2 PRINT"WM1»I KLEINE TRICKS FUER C-64 

3 PR I NT "MS ING W HOFRCKER GMBH 

4 FOR 1=1 TO 11 00: NEXT I 

18 PRINT"EIN PROGRRMM KRNN DURCH 

15 PRINT" EINEN TRICK flUS ZWEI EINZELNEN 

20 PRINT'TROGRRMMEN ZU3RMMENGESETZT WERBEN. 

30 PR I NT "BE I BIESEM VORGRNG WIRD DER BILDSPEICHE 

R BES C-64 RLS ZWISCHENSPEICHER 

40 PRINT"BENUT2T. WIE WIR WISSEN,WIRB BRS 

50 PRINT"RLTE PROGRRMM IM RRM BES C-64 

60 PRINT"GELOESCHT,WENN EIN NEUES PROGRRMM GELRB 

EN WIRB.SICHER HRBEN WIR RUCH 

70 PRINT"SCHON BEOBRCHTET, BRSS WREHRENB 

SO PR I NT "BES LRBEVORGRNOES RESTLICHE PROGRRMM- 

85 PRINT-TEILE RUF BEM BILBSCHIRM ERHRLTEN 

30 PRINT"ELEIBEN.BIES MRCHEN WIR UNS JET2T ZU- 

95 PRINT"NIJTZEN.BER RNZUKOPPELNBE PROGRRMMTEIL 

100 PR I NT "KRNN BESHRLB IMMER NUR SO GROSS 

110 PRINT"WIE UNSERE BILBSCHIRMFLRECHE 

120 PRINT"SEIN.RBER IMMERHIN WIR BRRUCHEN 

130 PR I NT "S IE NICHT WIEBER NEU ZU SCHREIBEN. BIES 

ERTRICK EIGNET SICH GUT BEIM 

140 PRINT"RNKOPPELN VON UNTERPROGRRMMEN 
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Zahlenkolonnen- 

formatierung, 

Dezimalausrichtung 



Dieses Programm arbeitet ahnlich, wie das Programm "Einfache 
Grafik", jedoch werden die Zahlen formattiert ausgegeben. Dezimal- 
punkte untereinander. 

4910 POKE 532ei,?:POKE532S0,3 

4926 PRIHTCHR$<144> 

5000 S=10 

50 1 N*« " PRODUKT " : H 1 *= " SUMME " 

5020 S* ••= " • 

5030 DIMfl*<S+l) 

5040 F0RV=1T025: PRINT : NEXTV = F0RJ=1T0S 

5050 PR I NT "PRE IS FUER ST."; J;" DM " ; : I NPUTfl* <. J 1- 

PRINT: NEXT J 

5060 PR I NT = PR I NT : PR I NTTRE '■. 1 3 J " RECHNUNG " = PR I NT : PR 

INT : FORK- 1T0S+1 

5070 I FK=S+ 1 THENfl* < K > =STR* >-. X > 

5080 Z=0 

5090 L*LEN<fi*<K>> 

5100 F0RI=1T0L 

5110 IFMID$''R$<IO,I, irJ- H ."THENZ=I 

5120 NEXT I 

5160 IFZ=0THENfl*<K>=fl$-;K>H-".00 ,i =GOTO5190 

5170 I FM I D* < fl* (. K > > 2+2 .■ 1 > ~ " " THENfl* '■. K ) =fl* (. K ) + " " 

5 1 30 I F I > < Z+3 > THENfl* < K > «M I D* < fl* < K ) .- 1 , Z+2 ) 

5 1 90 L2-LEN < fl* < K > ) ■■ V=35 : M= V-L2 

520© I FK=S+ 1 THENPR I NTS* : PR I NTN 1 $ ; TflE < 25 > ; " DM " ; Tfl 

B < M > .: fl* < K > • PR I NTS* = END 

52 1 PR I NTH* ; K i TAB < 25 > " DM " TflE < M > i Fl* C K > 

5220 B=Vfll_ < fl* < K > > = X=X+B 

5230 NEXTK 
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Einfache Grafik 



Einfache Grafik 

Dieses kleine Programm dient zur Erstellung einesgrafischen Schaubildes 
auf dem Bildschirm. Da nur 40 Zeichen pro Zeile zur Verfiigung stehen, 
bitte nicht groBere Werte als 35 eingeben. 



5 POKE 53281,7:POKE53280,3 

7 PRINTCHR*<144> 

1 F0RX= 1 T025 = PR I NT : NEXTX 

20 DIMD*<13^Sa3) 

30 BRTR JflN , FEE , MflR , RPR , Mfl I , JUN I , JUL I . RUG . S 

EPT,0KT ,N0V ,DEZ , 

40 F0RI=1T012 

30 REflDB$<I)-NEXT 

60 PRINT"EINGRBE DER VERKfiUFTE GERRETE" 

70 PRIHTTRE<8>"PR0 MONAT !" 

80 F0RI=1T012 

90 PRINTD$a>.: 

100 INPUTE : G0T0 260 

lie s<n=E 

120 NEXT 

130 F0RX=1T025: PRINT : NEXTX 

140 PRINT" C-S4 COMPUTER IN 1983" 

150 PRINT 

160 F0RI-1T012 

170 PRINTD*a>j 

1 80 I FS a :> =0THENGOTO2 1 

190 F0RJ«1T0S<I> 

200 PRINT"*"; ^NEXT 

210 PRINT: NEXT 

220 PRINT" ■•— 

_ ii 

230 PRINT" I I I I I I I 

I 

240 PRINT" 1 5 10 15 20 25 30 3 
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250 END 

268 IFE>3STHENPR'IHt"ZflHLEN KLEINER 35 ! " = GOTO90 

270 GOTO 110 
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Grafikdiagramm 



Grafikdiagramm 

Das folgende Programm erstellt eine graphische Darstellung in Farbe 
auf Ihrem C-64 Bildschirm. Bis zu sechs Positionen konnen eingegeben 
werden. Die Werte fiir die einzelnen Positionen konnen zwischen 
und 1000 liegen. 

13 POKE532S0, 1 • P0KE532S1 , 1 • PRINT":*" 

20 PRINT" BAS 1ST EIN PROGRAMM ZUR ER- 

38 PRINT" STELLUNG VON GRflPHISCHEN BAR- 

40 PRINT" STELLUNGEN.BIE MENGEN UERBEN 

50 PRINT" AUTOMAT I SCH ANGEPASST UNB 

60 PRINT" BIE SCALA WIRB ENTSPRECHENB 

70 PRINT" ERSTELLT. BIE MEN6EN MUESSEN 

30 PRINT" ZWISCHEN 1 UNB 1000 SEIN 

85 PRINT: PRINT: PRINT 

90 PRINT" WIEVILE NAMEN KOMMEN VOR?" : PRINT: PRINT: PRINT 

100 GET Z:IF Z=0 THEN 100 

110 PR I NT " E I NGABE NAME NR . 1 " = I NPUT A $ 

120 PRINT"BIE ERSTE MENGE(ZAHL>"; : INPUT A 

130 IF Z=l THEN 230 

140 PRINT"EINGAEE NAME NR. 2"; "INPUT B* 

150 PRINT "BIE ZWEITE MENGE(ZAHL)"; = INPUT B 

160 IF Z=2 THEN 289 

170 PRINT "EINGAEE NAME NR.3".; = INPUT C* 

180 PRINT"BIE BRITTE MENGE(ZAHL)"; ■ INPUT C 

130 IF Z=3 THEN 280 

200 PR I NT "EI NGABE NAME NR.4"; = INPUT BS 

210 PR INT "BIE VTERTE MENGE<ZflHD"; : INPUT B 

220 IF Z=4 THEN 280 

230 PR I NT "EI NGABE NAME NR.5"; : INPUT E$ 

240 PRINT "BIE FUENFTE MENGECZflHL;".; : INPUT E 

250 IF Z=5 THEN 230 

260 PRINT"ENGABE NAME NR.6": : INPUT Ft 

270 PRINT"BIE SECHSTE MENGECZAHLV'.; = INPUT F 
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280 IF A>B RND fi>C AND A>B AND R>E AND A>F THEN N=A-' GOTO 

349 

293 IF B>A AND B>C AND E>D AND B>E AND E>F THEN H=B- GOTO 

340 

300 IF Ofl AND OB AND OB AMD OE AND OF THEN N-C= GOTO 

340 

319 IF D>fl AND D>B AND D>C AND B>E AND B>F THEN N=B : GOTO 
346 

320 IF E>A AND E>B AND E>C AND £>D AND E>F THEN N=E= GOTO 
340 

330 N=F 

340 IF N>=1 AND N<5 THEN N=5 : GOTO 416 

350 IF N>=5 AND N<16 THEN N=18: GOTO 410 

360 IF N>=10 AND N<28 THEN N=20 : GOTO 416 

370 IF N>=20 AND N<58 THEN N=50: GOTO 410 

380 IF N>=50 AND NCIOS THEN N=108-GOTO 416 

390 IF N>=10@ AND N-C588 THEN N=500-GOTO410 

400 IF N>=560 AND N<1860 THEN N=1008 

410 PR I NT "31" = PRINT"©" J = FRINTTABC5) ; N/5; : PRINTTABX 11 > ; 2*N/ 

5; 

415 PRINT TAB<l?);3*N,-'5; 

428 PR I NT TAB ( 23 ) i 4*N/5 ; : PR I NTTAB (29 ) N 

438 PRINT"! i t < 1 T -i 

440 PRINT" !".;fi$ 

458 PRINT" I"; : F0R M=l TO 30*fl/N:PRINT"H3 ■".; = NEXT M = PRINT 

468 IF Z=l THEN 666 

478 PRINT" ! 1 1 1 1 1 



480 PRINT" l".;B$ 

498 PRINT" I".; : FOR 0=1 TO 38*B/H: PRINTS ■";*NEXT Q: PR I NT 

500 IF Z=2 THEN 566 

518 PRINT" I f- 1 i 1 1 

528 PRINT" !".;C$ 

538 PRINT" I"; : FOR 0=1 TO 36*C/N- PRINT" 13 ■"; '-NEXT = PRINT 

548 IF 2=3 THEN 668 

558 PRINT" i H 1 ! 1 1 

566 PRINT" |";D* 

576 PRINT 1 '!"; : FOR e=l TO 38*B/N-PRINT"iS2l ■"; 'NEXT P- PRINT 

530 IF Z=4 THEN 666 

590 PRINT" I H 1 1 1- 1 

680 PRINT" l";E$ 

618 PRINT" i".i = FOR R=l TO 30*E/N:PRINT"SS ■"; =NEXT R = PRINT 



68 



629 IF 2=5 THEN 660 

638 PRINT" I 1 1 1 1 1 

648 PRINT" i".;F$ 

650 PRINT" I" J = FOR S=l TO 30*F/N: PRINT" S ■".-NEXT S PRINT 



66Q PRINT " ' — - — I 1- 

670 G0T0670 
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Superbalken- 

diagramm 
(Balkensuper) 



Superbalkendiagramm (Balkensuper) 

Dieses Programm erlaubt Ihnen eine komfortable Balkendiagrammdar- 
stellung auf dem Bildschirm Oder dem Drucker. Es arbeitet mit dem 
Commodore Drucker VC-1515oder dem VIC-100 Drucker. 

Nach dem Start mit RUN und der Wahl der Darsteliungsart (Aoder B) 
wird nach dem Titel gefragt. Dieser wird spater iiber das Diagramm 
geschrieben. 

ELCOMP 

WELTWEIT VERTR.IEB 



BUECHER 15 
SOFTWARE 26 
ADD-ONS 25 



Dann kann noch ein Untertitel gewahlt werden. Dieser kann entweder 
oben oder unten im Bild ausgegeben werden. Geben Sie oder U ein. 
Nun wird die Anzahl der Balken gewahlt. Dies richtet sich danach, wie- 
viel einzelne Projekte etc. Sie in Ihrer Grafik darstellen wollen. 

Dann mussen die Werte eingegeben werden, die minimal und maximal 
in unserem Diagramm vorkommen werden. Fur den Skalenwert (MaB- 
stab) erhalten wir nun einen Vorschlag. Wir geben einen Wert fur den 
MaBstab (MASST) ein. 

Jetzt konnen wir die einzelnen Werte fur die Balken mit ihrer Be- 
zeichnung eingeben. Vergessen Sie das Komma zwischen Beschreibung 
und Wert nicht. Die Werteingaben mussen in dem Bereich liegen, den 
wir vorher selbst festgelegt haben. 

70 



195 REM DIESE PROGRAMM ZEICHNET VERT I KALE GRAF ISC 

HE STRSflRSTELLUNGEN 

£10 REM *LOESCHE ALLE VARIABLES' 

220 REM **#*.**#**********#*#*****#**** 

230 = 

240 CLR: PR I NT "IT: PR I NT" S * GRAF IK # " • PRINT 

250 PRINT" fl FUETR C-64 

260 PRINT: PRINT 

265 PRINT" 3 RRBEITET flUCH MIT HEM VC 1515 DRUCKER 

": PRINT: PRINT 
270 PRINT "WAEHLE DPS RUSGflBEFORMFiT dRS OBERSBS" 
280 INPUT "ODER RETURN FUER BEISPIELE 71 

# M ;F* 
290 IF F*="*"THEN GOSUE 1080 : F$~FF$ 
300 IF F*="P," OR F$="B"THEN 320 
310 PR I NT "H" ; GOTO 270 
320 PR I NT" 3WM a > FORMAT "F*" BITTE NAEHLEN '.« 

350 input" 3. us 9. 3. be auf drucker J/n j HIIilBlS" ; P 

* 

360 REM AUSGABEFORMAT 

365 C=l:D=3 = REM AUSGAB 

E KANRL 1 - DEVICE 3 CBILBSCI-O 

370 BAR=PEEKc:213>-U : IF P*0"J"THEN 410: rem B 

REITE DE3 SCHIRMS<40 OR 80 CHR> 

380 BfiR=68:D=4:PRINT: REM BRE 

ITE FUER DIE AUSGABE DEVICE 4 

390 INPUT" VERBESSERTER TITEL JIMI" ; T* 

400 T=129:IF T$=",T" THEN T=l : REM V 

ERBE8SERTER MODUS 

410 fl*<0>="" :fl$<n="H"+"i " ■f\-s-<.2:>~"m"+"i "■■mc3:>="m 

" + " " : A$ < 4 > ~ " " ■*■ " I " 

415 fl*<5> = " l"-m<.6'> = " l":fl*<7>*" I": REM TE 

IL AUSGABE FELD 

420 : 

430 REM ******* BILDSCHIRMEINGABE **** 

440 REM ****************************** 

450 : 

460 INPUT "rMTTITEL #IMI";T1* 

462 IF T1.*0"*"THEN 470 

464 PRINT" a 1ST OK 1 DOCH TITEL" ;: INPUT" NEINIII 

" ;T3* 
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466 IF.T3*0"NEIH" THEN 469 

470 INPUT "JOJNTERTITEL #IMI";-T2* 

472 IF T2*0"*"THEN 489 

474 IF T2$="*" THEN PRINT" S 1ST OK ■ KEIN UNTERT 

ITEL"; '•INPUT" NEIN".;T3$ 

476 IF T3*0"NEIN" THEN 478 

478 T2$="" : G0T0 580 

480 PRINT'OSIJNTERTITEL GEWUENSCHT 80BBEN 0. EJU5MT 

EN AM BILD "; 

490 INPUT" 01Mt":.TT$ 

500 INPUT "WRNZflHL DER 3AEULEN <BRLKEN> #1111" ; N 

510 INPUT "W d NIEBRI.OSTER WERT #1111" J L 



515 IF L<0 THEN PRINT"XR FRLSCH1 - KEINE NEGATIVE 

N BflLKEN ERLAUBT" : GOTO 510 

520 L*=STR*CL> :LL=LEN<L*> : REMB 

ERECHNE LAENGE D.KL.WERTES 

530 INPUT " S3 GROESSTER WERT #IIH" ; H 

535 H$=STR* C H ) '• HH=LEN '• H* > 

537 IF FLAG THEN 630 

540 IF F*="B"THEN BflR*=BRR-HH ; FLflQ=l : GOTO 630 

545 GOTO 668 

550 : 

560 REM *BEREICH3UEBERSCHRETTUNG* 

570 REM **####**##*###*#*#**#**#*#***# 

580 PRINT ■•PRINT" BEREICH 1ST 2U GROSS UN IHESE F 

ORM DflRZUSTELLEN".; 

535 IF F**"B"THEN PRINT" --WREHLE NEU HBSEREICH" = 

GOTO 600 

590 PRINT"~WAEHLE NEU SBHEREICH -ODER ■ flFBORMflT B" 

600 GET B*:IF B*="E"THEH 51 O 

610 IF B*="F"THEN PRINT" S3 WECHSEL NACH FORMAT B 

ZUM DRUCKEN " : F*="B" : GOTO 510 

620 GOTO 600 

624 : 

625 REM ********** FORMAT B *********** 

630 M I N= (I NT < H/ < BAR > * 1 88 > > / 1 08 = MflX» < BAR/ 1 8 > *L 
640 M I H*=STR* ( M 1 N ';■ '• MAX*~STR$ < MAX ) 
650 PRINT: GOTO 690 

654 '• 

655 REM *********** FORMAT fl ********** 
668 PRINT 
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67i3 M I H= ( I NT < H/BRR* 1 00 > > /' 1 00 : MRN^ ( I NT '• L/LL* 1 00 > ) / 

100: REM ROUND OFF TO 2 DECIMAL 

680 M I H$=STR$ < M I H ) : MRX*=STR* ''. MRX ) 

634 : 

685 REM ***** MRSSTRBSWRHL ****** 

690 IF MIN>MflX THEN 539 

695 PRINT" a WREHLE SCflLENWERT "MIN$" BIS"MflX$' 



' I! H 



700 PRINT'SKLEINE FRKTOREH GEEEN GROESSERE BILDER 

710 INPUT" a MfiSST #■■■!" ; S 

715 IF S-CMIN OR 3>MflX THEN PRINT"UNGUELTIGER WERT 

BUTE NEU EIMGEBEN "••G0T071@ 
717 •■ 

713 REM ******** DRTEN EINGRBE ****** 
720 PRINT'-JflEINGflBE IN FOLOENDER FORM :" =PRINT 
, "WSBESCHREIB.H , SWERT 1" 

730 DIM l!f'::H;',V(N) : REM D 

IMEMSIONIERUNG FELD IN VRL.N 
740 FOR I=1T0 N 

759 : PR I NT " B I LH » I , " Mf J" .: = I NPUT " *MII" j D* < I > , V 
< I '■> 

753 IF V<I)^>L AND V(I)OH THEN 760 
755 IF V(IXL OR V(I>>H THEN PRINT"PflSST NICHT a 

WERT NEU EING. % 
757 INPUT" #||||";V<I>: GOTO 753 
768 ■■ D*<I>=D*<I> + " 

770 : D*<I>=LEFT*'CD*<n,10> ■ •■ RE 

M BESCHREIBUNG BIS 10 ZEICI-L 
780 NEXT 
790 ; 

803 REM ********** RUSGRBE ********** 
810 REM ***************************** -'" 
820 "■ ■■ 

825 SP*="" =FOR I--1TO BRR : SP*=SP* +" " = NEXT ■• REM M 
RXIRMLE BRLKENLRENGE 
330 PR I NT "IT' 
848 OPENC , D 

350 PR I NT#C , " " TAB ( 1 1 ) CHR* (. T ) ; T 1 $ 
360 IF TT*="B M THEN 890 
870 PRINT#C 

880 PR I NT#C , " " TRB < 1 1 > ; T2* 
898 PRINTttC, : PRINT#C 
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990 FOR I=1T0 N 

910 REM RNPASSUNG PES MASSTABES 

92Q = X=V<IVS:V=INT<X>:V*=STR*CV<I)> 

930 IF F$="B"THEN 960 

940 : PR I NT#C .■ D* '■. I > ; " SI" V* ; 

950 = PR I NT#C , " SI" LEFT* C SP* , < V-LEN < V* ) ) > ; fl* < 8* < X~ 

V> )")8" -GOTO 990 

960 V*= " " + v*+ " " : V*~R I GHT* < V* , HH+ 1 > : REM 

PAD VARIABLE AUG MAX. WERT 

970 : PRINT#CjD*<I>;V*; 

980 : PR I NTttC .. " S3" LEFT* ( SP* , V > ; A* < 9* < X- V > > " W 

39Q NEXT 

1000 IF TT*0"B"THEN 1030 

1010 PR I NTttC : PR I NTttC , " " TAB (11); T2* 

1 020 PR I NT#C : PR I NTttC : PR I NTttC 

1030 END 

1040 : 

1050 REM'** AUSGABE FORMAT BE I SPIEL ** ' 

1 060 REM #*##****#**********#******#*# 

1070 : 

1080 PRINT'TMSI AUSGABE FORMAT BE I SPIEL" 

1085 PR I NT " mmmm ^ m mm ^ mmmmi ^ milimmmmmm ^^ mmm ^ m ^ m ^^^ mmmmmmmmmmmmm 
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1090 PP TNT ' ' ..■ ......■■■■.ii..,..,.,..— .,., ' ' 

1100 PRINT" fl FORMAT 'R' " 

1110 PRINT"" — ""— — 

1 1 20 PR I NT : PR I NTT AB < 1 > " T I. TEL : VERBESSERTE AUSFUEH 

RUNG" 

1 1 30 PR I NT : PR I NTT AB < 10V UNTERT I TEL KANN 2USAETZL I 

CH" 

1 1 40 PR I NT '•PR I NT : PR I NT " BESCHRE I B S3 WERT 
ii 

1150 PRINT: PRINT" 10 ZEICH S3 WERTE 

1 1 60 PR I NT : PR I NTTAB < 1 > " UNTERT I TEL , WENN GEW . " 

1165 P P T '•- IT " NT- I ■ .1 ■■■■ ■„. ___^__ 

m"- PRINT: PRINT 

1170 PRINT" S3 * WflEHLE FORMAT A 0. B * 

1180 PRINT" 0. DRUECKE RETURN FUER ANDERES FORMA 

T" 

1190 GET FF*=IF FF*~""THEN 1190 

1200 IF FF*="fl"OR FF$="B" THEN RETURN 

1210 PRINT"HHMWr 
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1229 PR I NT " ^^^^n^.,,^" 

1230 PRINT" a FORMAT 'B' " 
1240 PRINT"" — """""" "" "" " 

1 250 PR I NT = PR I NTTAB <. 1 ) " T I TEL VERBES3ERTE VERS I OH 

1260 PRINT : PRIMTTfiEC 1@5 "UNTERTITEL-WRHLWEISE 

It 

1270 PRINT:PRINT:PRINT"BESCHREIB WERTE SI 
1280 PR I NT: PR I NT" -j.@ ZEICH VARIABLE S3 

II 

1290 PRINT :PRINTTRBa0>"UNTERTITEL WflHLW 

1329 GET FF*=IF FF*=""THEN 1320 

1330 IF FF$-"A"OR FF*="B" THEN RETURN 
1340 PRINT"iSDflKWI" : GOTO 18.90 
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POKER MAKER 



POKER MAKER 

In der Praxis mochte man bestimmte Programmteile wie z. B. Ton- 
erzeugungsprogramme, Bewegungsroutinen etc. als Maschinenpro- 
gramme in sein BASIC-Programm einbauen. Der nachfolgend be- 
schriebene POKER MAKER hilft Ihnen dabei. Sie schreiben z. B. Ihr 
kleines Maschinenprogramm in den C-64 ab Adresse C000 (49152), 
dort ist es von BASIC geschiitzt, und laden dann den POKER MAKER. 

Programme, die Sie von BASIC mit der SYS Adresse aufrufen wollen, 
mussen mit RTS abgeschlossen werden. 

Der POKER MAKER erzeugt von Ihrem Maschinenprogramm ein 
BASIC-Programm, bei denen der Hexcode in Dezimalzahlen umge- 
wandelt, in DATA Statements steht. Nachdem Sie das generierte 
Programm einmal gestartet haben, werden die DATA-Werte in den 
Speicher gebracht. Das Maschinenprogramm kann dann mit SYS 
Adresse gestartet werden. 

Beschreibung POKER MAKER 

Dieses Programm lauft auf dem Commodore-64. POKER MAKER 
generiert ein Programm, welches Dezimalwerte in den Speicherbereich 
bringt. Geben Sie Anfangs- und Endadresse in dezimater Form ein. 
Nach einigen Sekunden steht Ihr gewunschtes Maschinenprogramm als 
BASIC Programm im Speicher. 

Achtung ! 

Vorher auf Cassette speichem, da sich das POKER MAKER Programm 

dabei loscht !! 

Es empfiehlt sich, Maschinenprogramme ab C000 Hex Anfangsadresse 
zu legen. 
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502 PRINT: PRINTERS PROGRAMM GENERIERT" 

594 PRINT"EIN BASIC PROGRAMM 

506 REN DIESES PROGRAMM ERZEUGT EIN MRSCHINEN- 

597 REM PROGRAMM IN DATA ZEILEN. WELCHE 

508 REM DAWN EINGEPOKED WERDEN KGEHNEN. 

516 REM ACHTEN SIE DARfiUF,DASS SlE SINN- 

511 REM VOLLEN CODE IN DEN RAM ZELLEN HAEEN. 

512 INPUT "fiNFANGSRDRESSE,DEZ".;Ll 
514 INPUT "ENDADRESSE DEZ".;L2 
516 IF L2i=Li THEN 586 

518 print ":ara" 

520 PRINT "20FORI = " ; LI ; "TO" .: L2.; " : REflDDC : POKE I , DC : NEXT I " 

522 PRINT "Ll = " , LI .; " : L2=" ; L2.; " : G0T0523" 

524 POKE 198, 10: FOR H=@ TO 9- POKE 631+N, 13: NEXT n 

526 PRINT "3": END 

528 ML=L1 :LN=22 

530 PRINT "■Z.m" 

532 PRINT LN.: "DATfl"; 

534 D1=PEEKCML) :Di$=STR$CDi:' 

536 DC*=RIGHT$CDl$,LENaU$;'-i:) 

538 PRINT DC$;:ML=ML+1 

540 IF POSC0K18 THEN 544 

542 PRINT: PRINT "LN=" ;LN.: "+2 :f'1L=".;ML; ":L2=",L2: " : mTHF;™" : 

544 IF ML>L2 THEN PRIHT:pRIHT "G0T0554" :ROTn 54;-: 

546 PRINT CHR$<44).; :GOTO 534 

548 PRINT "S3" 

550 POKE 198, 10: FOR N=0 TO 9: POKE 631+H, 13: NEXT N 

552 PRINT "a": END 

554 I =500 : J=502 : K=504 

556 REM 

558 REM 

560 PRINT , "3!M'- PRINT SPRINT J: PR I NT K 

562 PR I NT " I = " ; I +6 .; " : J= " ; J+6 j " ■ : K= " ; K+f. ; " ■ G0Tri56R " 

564 PRINT "3": PQKE 198, 10: FOR N=0 TO 9: POKE 631 +N, 13: NEXT 

RERDV. 



Nachdem POKER MAKER abgelaufen ist, erfolgt eine Fehlermeldung, 
welche Sie ignorieren konnen. Geben Sie List ein und Sie erhalten das 
gewunschte Programm. 

Das nachfolgende BASIC-Programm wurde mit diesem POKER 
MAKER Programm generiert. 



28 F0RI= 49152 TO 49164 : REflDDC : POKE I , DC = NEXT 
22 JJfiTfll69,0, 162,9 
24 DATA 157, 255, 192 
26 BfiTFi282, 16,258 
28 DHTfl96,8,8 

■jvt *.lli'> rr%UL>kni'in J.N ilHin £.c iLch. !-MLi!_i_-nc 

■J 11 fJ.CI 



cm '.,'OLLEH CODE IN DEN RAM ZELLEH HflEEH. 
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Es poked uns ein Maschinenprogramm in den Speicher ab Adresse 
49152. 

Das obenstehende BASIC-Programm konnen Sie jetzt auf Cassette 
ablegen, oder in ein anderes BASIC-Programm als Maschinenunter- 
programmgenerator einbauen. Sie konnen es nach RUN mit dem Befehl 
SYS (49152) aufrufen. Dieser Befehl fiihrt dann das Maschinenpro- 
gramm aus und kehrt wieder nach BASIC zuriick. 

Die Zellen, die durch unser Programm zu Null gemacht werden, liegen 
ab COFF - C109 Hex (49407 - 49417). 

Wir sehen uns dies jetzt mit den folgenden Zeilen an: 

300 FORM=49407TO49417:PRINT 

PEEK(M):NEXTM 
350 END 
400 FOR49407TO49417:POKEN,255: 

NEXTN 

RUN 300 zeigt uns die Zellen, die wir spater zu Null machen wollen. 
RUN 400 schreibt uns etwas anderes (255) ein, damit wir es spater 
testen konnen. 

Nachdem wir RUN 400 gegeben haben, starten wir mit RUN das 
Hauptprogramm an Zeile 20. Dann geben wir im Direktmode ohne 
Zeilenzahl SYS 49152 (Return) ein und starten das Maschinenpro- 
gramm. AnschlieBend sehen wir mit RUN 300 nach, ob unser Ma- 
schinenprogramm auch gearbeitet hat. 



78 



Automatische 
Funktionen 

Automatische Funktionen 

Dieses Programm erlaubt Ihnen, die acht Funtkionstasten mit be- 
stimmten feststehenden Aufgaben zu versehen. Sie konnen z. B. den 
Kommandokanal offnen, Disketten formattieren, den Fehlerkanal lesen 
oder auch einen LOAD oder SAVE Befehl vereinbaren. 

Nach Driicken der zugehorigen Taste, erscheint der gewiinschte Aus- 
druck auf dem Bildschirm. Sie brauchen dann nur noch RETURN zu 
driicken. Vergessen Sie den "Pfeil nach links" nicht hinter Ihrem Aus- 
druck ! 

10 REM FUNCTION KEV.C 

20 PR I NT "3 FUNKTIOSTflSTEN FUER C-64" 
30 PRINT"W ZUR EIGENDEFINITION VON 
40 PR I NT "MM FUNKTIONEN DIE MAN IMMER 
50 PR I NT '.'W WIEDER DRAUGHT. GEEEN SIE 
60 PR I NT "M EINFflCH NflCH RUFFORDERUNG FUER 
70 PRINT" JEDE FUNKTIONSTflSTE E IN, WAS SIE 
80 PR I NT "M GERNE RLS RUSDRUCK DORT STEHEN 

HRBEN MQECHTEN. 
90 PR I NT " W Z . BE I SP I EL OPEN 1 , 8 .- 1 3*-C RETURN 3 ' WUERB 
E 
100 PRINT" DEN DISKETTEN KOMMRNDOKANAL OEFFHEN, 

WENN Fl 
110 PRINT" MGEDRUECKT WUERDE. 

120 PR I NT "M WflRTEN SIE BITTE 

1 30 F=0 : OPEEK < 53 > - 1 20 = I FCOTHENOC+256 : F=- 1 

140 D=PEEK<56>+F : P0KE55, C = P0KE56, D : CLR 

1 50 S=828 : I = 1 46 : GOSUB330 

1 60 DRTfl 32 , 1 98 > 3 , 1 65 , 55 , 1 33 ., 25 1 , 1 33 , 253 , 1 65 , 56 > 1 

33 , 252,1 33 , 254 , 1 69 , 49 , 1 33 ,2,1 69 

1 70 DRTfl 1 33 , 1 33 ,9,1 €3 , 13,32,210 , 255 ,169,70, 32 , 2 1 

0,255,165,2,32,210,255, 169,61 

1 80 DRTfl 32 , 2 1 , 255 , 1 69 , 63 , 32 ,210, 255 , 1 69 , 32 , 32 , 2 
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1 , 255 , 32 , 207 , 255 , 72 , 1 60 ..0,1 65 

1 99 DATA 9 , 1 45 , 55 > 1 04 , 32 ,193 , 3 , 201,1 3 , 240 ,14,201. 
95,208 , 2 , 1 69 ,13,1 45 , 55,32 

200 DATA 207 , 255 ,76,1 24 , 3 , 230 ,2,1 65 , 2 , 4 1 , 1 , 208 , 1 i 
,24,165,9,1 05 , 4 , 133 ,9 

2 1 DATA 76,170,3, 56 , 1 65 , 9 , 233 , 3 , 133,9,1 65 , 2 , 20 1 . 

57, 144, 163, 120, 169, L0, 141 

220 DATA 20,3, 169, H0, 141,21,3,88, 169, 0,133, 2,32, f. 

8 , 1 66 , 76 ,116,1 64 , 1 66 , 55 

230 DATA 208 , 2 , 1 98 , 56 , 1 98 , 55 , 96 

240 S=PEEK <. 55 > +256*PEEK < 56 ) : I = 1 1 9 : GOSUE330 

250 8VS828 

260 DATA 1 65 , 2 , 240 , 59 , 169,0,1 77 , 25 1 , 32 , L99 , H0 , 1 ?(. 

, 12, 165, 55, 197, 251 , 208, 21 , 165 

270 DATA 56 , 1 97 , 252 , 208 , 15,169,0,1 33 ,2,1 65 , 253 , 1 : 

3,251,165,254,133,252,76,49,234 

280 DATA 1 66 , 1 98 , 1 77 , 25 1 , 1 57 , 119,2, 230 , 1 98 , 32 , L 1 : 

1 , H0 , 1 65 , 1 98 , 20 1 , 1 1 , 1 44 , 204 , 230 , 2 

290 DATA 76 , 49 , 234 , 1 65 , 2 1 5 , 32 , L99 , H0 , 1 76 , 3 , 76 , 49, 

234 , 1 65 , 8 ,41,1, 208 ,247 , 1 60 

390 DATA , 1 77 , 25 1 , 1 97 ,215 , 208 , 6 , 32 , L 1 1 1 , H0 , 76 , L< 

, H0 , 32 , L 1 1 1 , H8 , 76 , L8 1 , H0 , 20 1 

3 1 DATA 1 33 , 1 44 , 6 , 20 1 ,141,176,2 , 56 , 96 , 24 , 96 , 166 , 

25 1 , 208 , 2 , 1 98 , 252 , 1 98 , 25 1 , 96 

320 END 

33© F=0 : FORD-STOS+ 1 ■: READA* : I FASC < A* > <58THEMfl=VAL ■ 

A*> : GOTO360 

340 I FASC < A* > *=76THENA= V AL < R I. GHT* < A* , LEN < A* > - 1 > > - 

PEEK'' 55 •> ■ IFA>255THENA=A-256 : F=l 

350 I FASC ■; fl* > =72THEHA= V AL < R I GUT* <. A* , LEN < A* > - 1 >> +f 

EEK''56>+F:F=0 

36© POKED, A : NEX.T = RETURN 
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Bildschirmausdruck 
fur VC-1515 

Bildschirmausdruck fur VC-1515 

Das folgende Programm stammt aus dem VC-1515 Drucker-Handbuch. 
Ich habe es auf den C-64 umgeschrieben und getestet. Es arbeitet 
einwandfrei. Es kann als Unterprogramm an das Programm angehangt 
werden, dessen Ergebnis auf dem Bildschirm ausgedruckt werden soil. 

Ein Aufruf im Direktmodus mit GOSUB 60000 ist auch moglich. Das 
Programm arbeitet im "Cursor UP" Modus. Wenn Sie ein Programm 
in "Cursor Down" Modus schreiben, muK G18=CHR(145) in G1S= 
CHR(18) in Zeile 60010 ausgetauscht werden. 

63000 REM BILDSCHIRMAUSDRUCK 

6Q010 G1*=CHR*<145> 

60020 0PEN4 , 4 : PR I NT#4 = G 1 = 1 024 

60030 FOR G0=0 TO 40'G0*=Gl* : Gl=Gl+40 

60040 FOR G2=Gi TO G1+39=G3=PEEK(G2) 

6005O IF G3>128THEHG3=G3-12S-G4=1 :G0J=G0$+CHR$(1S) 

£M6S IF <G3>0>*<G3<32>THEN G3=G3+64 ; GOTO 63100 

600FO IF <G3>31)*<G3<64)THEN 60160 

€.m8& IF <G3>63>*<G3<9S>THEN G3-G3+ 128: GOTO 60100 

60Q9& I F ( G3>95 > * ( G3< 1 28 > THENG3=G3+64 : GOTO 60 1 OS 

60103 G0$=G0*+CHR*<G3> 

60110 IF G4=1THEN G0*=G0*+CHR*<146) : G4=8 

60120 NEXT G2 : PRINT#4jG0*=NEXT GO 

60139 PRINT#4:CL0SE4 

60140 RETURN 



Beispiel eines Bildschirmau 

20 


sdruckes 

40 


60 


80 


100 


IELC0MP 


i 


i 

i 


i 
i 


' 1 


IHHK 






i ,*- 


i 


1 


i 

BREAK IN 


i 
670 


i 


i 
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Diskbibliothek 



Diskbibliothek 

Wer bereits einige Disketten und einen Drucker hat, kann sich damit 
eine Bibliothek anlegen. Alle Programme werden gespeichert und auf 
dem Drucker ausgegeben. Ein sehr niitzliches Programm. 



Pro9rammbibl.iotriek Seite 1 

Pro9rammname Diskette Nr. 

EIHGRBEMASKE ELC0MP2 20 

RAHMEN. . ELC0MP2 20 

RECHN/AUFKL. ELC0MP2 20 

RECHNUNG0K ELC0MP2 20 

4 Pro9ramrne 



100 REM * MICHAEL BAUER * AINBORFERSTR. 86 # 3 M 

UEHCHEH 21 * 10. 11.80 * 

110 REM DIESES PROGRAMM DURCH3UCHT DISKETTEN 

120 REM NACH PROGRAMMHAMEH, SORTIERT UND 

130 REM DRUCKT SI.E BUS. 

1 40 P0KE52272 , 23 : D I MR* < 500 ) : N= 1 

1 50 PR I NT " 3XUBI1 PROGRAMME I EL I OTHEK " = PR I NT " MM 

bitte 9eberi sie ihre diskette iri 

1 60 PR I NT " WE I NEN BR I VE " = B£~ " @ " 

170 PRINT"WWWWELCHER DRIVE STD-r'SiliT ; = INPUTD* 

ISO REM INITIAL IS IEREN 

190 OPEN1 ,8,15: FL$=" I "+D* : PRINT* 4 , FL* : CLOSE 1 = FL* 

="*"+D* 

200 OPEN2,8,0,FL$:PRIHT":r 

210 REM EINLESEN 

220 H$= " " = GG=0 •• HL-0 : E$ <. 1 > = " " 
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23© B* <. 2 ■> = " " •• K=2 ■■ GET#2 , B* < K > • I FB$ < K > =CHR* C 34 > THE 

N300 

240 I FB* <. K- 1 > = " S " RNDB* < K > =" E " THEN 1 = 1 — 1 = GOTO2S0 

250 IFB*aO = ""THEN280 

260 I FHL= 1 RNDflSC < B* < K > > >47fiNDRSC < B* < K > > <58THENH* 

=H*+B*<I<> 

270 B*<K-1)*B*<K> 

280 IFSTO0THEH360 

230 GOTO230 

300 HL=0= 1 = 1 + 1 :fl*a5 = "" :PRINTI; 

3 1 GET#2 , fl* ■ I Ffl*=CHR* < 34 ) THENPR I NTfl* <. I > ■ GOTO330 

320 fl*<n=FI*<I>+fl*:GOTO310 

330 I FGG=0THENH*=Fl* <. N > : I * I - 1 : GG= 1 = HL= 1 

340 GO TO 230 

350 REM STRING FlUFFUELLEN 

360 CL0SE2 ■ FORK--NTO I 

370 I FLEH < fl* ( K > > >»25THEN390 

380 fl* (. K > =fl* <. K > + ".": G0T0370 

390 fit < K > =fl* < l< > +H* = PR I NTfl* < K ) = NEXT 

400 REM SCHLEIFE 

41© PRINT"MWSQLL EI HE WEITERE DISKETTE BURGH™" :P 

R I NT " MSUCHT WERDEN? J/N " : POKE! 58 , 

415 POKE 198.. 

420 Wfl I T 1 38 , 1 ■ OETX* '■ I FX*= " N " THEH4S0 

430 PRIHT"W«BITTE RNDERE DISKETTE EINLEGEN" : PR IN 

T"MDflNN EINE TASTE DRUECKE 

440 N= I + 1 ■• PR I NT " IT : GOTO 1 70 

450 REM SORTIERROUTINE 

460 PR I NT "IBISES WIRE SQ'RTIERTSMM" : fl=I 

470 IFR-O1THEN550 

480 fl= I NT <. ft/2 ':> ■ B= I ~fl 

430 C=0 

500 FORL= 1 TOB = PR I NT " T' L '■ D=fl+L : I Ffl* < L > =<R* < D > THEN 

520 *~* Das ist keine Zeite, sondern gehort zu Zeile 500 I 

5 1 S*=fl* < L ) : fl* < L > =fl* < D ;:■ : fl* < D > =S* = C™ 1 

520 NEXT: IFC=1THEN490 

530 G0T0470 

540 REM ZflEHLROUTINE 

550 FORL- 1 TO I : I FLEFT* < fl* < L > , 1 6 ) -LEFT* ( fl* < L- 1 X' 1 6 

>THENJ=J+1 

560 NEXT = fl=:0 : OPEN 1,4: GO8UBS20 

570 REM DRUCKROUTINE 
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589 FORL- 1 TO I : PR I NTfl* < L > 

53© PR I NT# 1 , m <.L>- fl»fl+ 1 : I Ffi=62THENF0RJ= 1 T04 ; PR I N 

T#l = NEXT ■• fl=0 •• G0SUB62S 

600 NEXT = PR I NTtt 1 : PR I NT# 1 , I -J " ^PROGRAMME " ; CLOSE 1 ■ 

END 

610 REM TITELROUTINE 

620 PR I NTtt 1 : PR I NTtt 1 

630 PR I HT# 1 , CHR* < 1 ':> " ^PROGRAMME I BL I OTHEK " CHR* < 1 29 

V SEITE "; ■• 

640 PRIHT#1,X 

650 PR I NTtt 1 : PR I NTtt 1 , " MPROGRflMMNflME D 

ISKETTE ..-■R." 

6Se PR I NTtt l: RETURN 
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Der Commodore-64 mit Diskettenstation 




Alle Programme in diesem Buch laufen auch auf dem tragbaren 
COMMODORE EXECUTIVE 64 (hier im Bild). 
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Frage und Antwort 



Frage und Antwort 

Dies ist ein recht praktisches Programm fur den Schuler oder Studenten, 

oder alle diejenigen, die sich auf eine Priifung vorbereiten miissen. 

Nachdem Sie mit RUN gestartet haben, konnen Sie bei der ersten 
Benutzung natiirlich nur Daten eingeben. 

Driicken Sie also zuerst einmal die Space-Taste. Sie erhalten jetzt eine 
kleine Anleitung. 

Es konnen Fragen und eine oder biszu 10 verschiedene Antworten auf 
eine Frage eingegeben werden. 

Den Eingabemodus verlassen Sie durch driicken der ( = >-Taste. 



© REM**BESCHREIBUNG 

1 DIMF*<31),R$'::31,il>,E<31> 

2 PR I NT "3" : PRINT" 3R N T W R T T R R I N I N G 
": PRINT: PRINT 

3 PRINT"ERUECKEN SIE RUF 'D',WENN SIE 

4 PRINT "EINE SDRTENH<R83ETTE EENUTZEN, RUF E,WENN 
SIE BUij!3Ji!!«SW54s3s3lSlil...!i:!LLEN, 

5 PRIMT"SONST RUF IRGENDEINE RNBERE TR8TE. 

6 GETV*: IFV*=""THEN6 

7 IFV*="D ,, THEN50 

I @ PR I NT •• PR I NT " VOREEMERKUNGEN '■ " = PR I NT 

II PRINT"MOECHSTENS 30 FRRGEN STELLEN ! 

12 PRINT"HOECHSTENS 10 RNTWORTMOEGLICHKEITEN 
GEBEN! 

13 PRINT"INNERHRLE EINER FRRGE DEER EINER RNTWOR 
T ^^iffilsffiBKMaSlJararEsfflfflf./ERWENDEN ! 

14 PRINT"RBSCHLIESSEN DER RNTWORTMQEGLICHKEITEN 
■ ODER EER FRRGEN BURCH-' = -'~TRSTE 

20 PRINT:PRINT"WOLLEN SIE JEWEILS NUR SEINE «§=INT 
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WORT ZULfiSSEN? 

22 GETZf :IF2$= I,M THEH22 

24 GOTO 100 

29 

30 

35 

50 REM**EINGRBE VON BRTENKRS3ETTE 

55 OPEN1, 1,0 

60 INPUT* 1,1 

65 FOR M^i TO I 

70 INP!JT#l,Ft<M> 

71 INPUT#l,Bai> 
80 FOR K=1TDB<M> 
85 INPUT#l,fl$a-1,IO 
90 NEKTK : NEXTM : CLOSE 1 
95 OOTO200 
96 
97 
98 

100 REM**DIREKTE EINGRBE 
105 PR I NT "3 

120 1=1+1 

125 PR I NT: PR I NT: PR I NT 

130 PRINT" SFRflGE "I; 

131 PRINT"" 

132 INPUT F$a> 

135 IFF*<n = "*"THENI = I-l : GOTO2O0 

140 K=l 

145 PRINT 

ISO IFZ*<>"J"THEN PRINTK".TE flNTWQRTMOEGLICHKEIT 

: PR I NT, 
1 53 I FZ$= " J " THENPR I NT " RNTWORT : " 
155 INPUTfi$a,K> 
ISO I FZ$= " J " OR m >'. I , l< :.' •- " - " THENB (. I > =K- 1 : GO TO 1 20 

170 K=K+1 
ISO GOTO 150 

182 : 

1 83 : 

184 : 

200 REM**ZUFflLLSRUSWflHL DER FRRGENNUMMER 
202 IFV$="E"THEN650 
205 PR I NT "n 



87 



2 1 9 PR I NT = PR I NT : I. NPUT " W I E OFT SOLL JEDE FRflGE R I 
CHTIG BEflNT- WORTET WERDEN" i E 

220 M= I NT < RNH C 1 > * I > + i 

230 IFZ<M>= E THEN GOTO 220 

231 : 
•2 -*3 c : 

O^:"! : 

300 REM** FRRGENSTELLUNG 

305 PR I NT "H 

310 PRINTFf(M) 

320 INPUTS*' 

330 FORL-lTOBa-D 

340 IFS*=R*'::i1,L>THENPRINT"SR I C H T I G" =Z<M>=Z 

(. M > + 1 = FORP= 1 TO 1 OOO = NEXT = GOTO5O0 

350 NEXT L 

360 PRINT"SLEIDER FRLSCH ! RI CHTIG WHERE 

370 FORL*lTOB<M> 

380 PR I NT " S3" fl* >'. M , L > ; I FL<B < M > THENPR I NT "ODER " ; 

390 NEXTL 

395 PRINT^PRINTPRINT'TiRUECKEN SIE IRGENDEINE Tfl 

STE, 

397 PRINT"UENN ES WEITERGEHEN SOLL! 

398 GETRf: IFR*=" "THEN393 
40© GOTO5O0 

450 : 

460 : 

470 : 

50O REN**ENDRBFRflGE 

505 PR I NT "n 

5.10 FOR M*lTOr-IFZ<MXETHENS20 

520 NEXT 

530 PRINT" SIE HRBEN JEDE FRRGE GENRU "E" MHL 

R I CHT I G BEflNTWORTET ! " = PR I NT : 
535 = 
540 '• 
545 = 

f.m REM**UEBERTRRG RUF BRTENBRND 

610 PRINT"UOLLEN SIE DIE FRfiGEN UND MUSTER-" : PR I 
NT"RNTWORTEN RUF SBRNBS SPEICHERN? 
6 1 5 GETW* '• I FW*= " " THEN6 1 5 
620 IFN*~"J"THEN650 
630 PRINT" RUF UIIEDERSEHEN ! " • END 
650 PRINT'TT"- PRINT "LEGEN SIE BITTE EINE LEERE SID 
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RTENKRSSETTE EIN. 

em PRI'NT'DRUECKEM SIE flNSCHLIESSEND IRGENBEIHE 

COMPUTERTRSTE„ 

6?Q GETL* = I FL*= " " THEH670 

675 OPEH1, 1,2 

677 PRIHT#1,I 

680 FOR M=1T0I 

6S(d PRINT#1,F*<M> 

695 PRINT#1,B(M> 

760 F0RK=1T0B<M> 

710 PRINT#1..R$(M,K> 

720 NEXTK 

73© NEXTM 

740 CLOSE 1 

750 : 

780 ; 

790 : 

.1100 REM##VflRIRBLENBEDEUTUNGEN: I=flNZF)HL DER FPRG 

EN , F=FRRGE , R=MUSTERRNTWORT 

1200 REM B=RNTWORTRNZRHL ZU EI HER FRRGE 

130© REM E=RNZRHL DER RICHTIG ZU BEflNTW. FRRGEN 

1 900 : 

1 90 1 : 

1902 : 

2000 REM*#COPVRIGHT LERCHE/TUTZIHG, OKI . 80 
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Statistik in BASIC 



Statistik in BASIC 

Dieses kurze Programm berechnet Ihnen aus maximal 100 eingegebenen 
Werten den Mittelwert, die Standardabweichung und den Standard- 
fehler. 

1 POKE53281,7:POKE53280,3 

2 PRINTCHR*<144> 

3 PR I NT "3" 

10 PR I NT" BASIC STATISTIK FUER EINE VARIABLE" 

20 PRINT:PRINT"GEBEH SIE BIS ZU 100 WERTE ALS VA 

RIflBLE EIN. 

30 PRIHT"ABSCHLIESSEN DER EINGABEH ERFOLGT MIT" 

35 'PR INT" ENDE UND RETURN" 

40 run xa00>--N*i 

50 PR I NT •• PR I NT : PR I NT : PR I NT : PR I NT : PR I NT = PR I NT : PR I 

NT: PRINT 

55 INPUT fl*--IF A$ * "ENDE" GOTO 90 

60 xcn:j=valca*>:print":3" 
65 sum = sun + x<n> 

70 N=N+1 

30 GOTO 50 

90 N=N-l:N= SUN/N 

100 FOR K = 1 TO N 

110 D*<XCK)-M>*<X<K>-M> 

120 S=S+H 

130 NEXT K 

1 40 SD=SQR >: S/ <. N-- 1 > > ■ SE=SD/SQR < N > 

150 PRINT"NITTELWERT = " ; M. ■ 

160 PRINT: PR I NT "STANDARD RENE I CHUNG = " ; SD 

170 PRINT: PR I NT "STANDARD FEHLER = " :■ SE 

ISO END 
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Einheiten- 
Umrechnung 

Einheiten-Umrechnung 

Dieses kleine und einfache Programm rechnet die verschiedenen 
physikalischen Einheiten urn. 

Z. B. PS in KW. Wieviel KW hat Ihr Auto ? Versuchen Sie es einmal mit 
dem Commodore-64 zu berechnen. 



1 POKE..53281,7:PQKE532S0,3 

2 PRINT.CHR$<144) 
1 FORX= 1 T025 = PR I NT : NEXTX 
2© B2$=" *******************" 
30 Bl$=" **************#****" 
40 PR I NTTRB < 1 1 > ; " UMRECHNUNG " 
50 PR I NTTRB < 1 ) i " ************ " 
60 PRINT 
70 PRINT" 
30 PRINT" 
90 PRINT" 
100 PRINT" 
11© PRINT" 
120 PRINT" 
130 PRINT" 
140 PRINT" 
150 PRINT 

160 PRINT"WELCHE EINHEIT SOLL UMGERECHNET?" 

170 PRINT"WERBEN NUMMER EINGEBEN ! " 

180 INPUT I 

190 CC$="FRLSCHE EINGRBE NOCHEINMRL ! " 

200 I F I >80R I =0 THENPR I NTCC* : FOR I = 1 TO 1 400 = NEXT : GO 

TO40 

210 PRINT 

220 PRINT "WELCHER WERT SOLL UMGERECHNET WERDEN 

"•■INPUTR 

230 PRINTS PR I NT = PR I NT 
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PS 


IN 


KW 


< 1 > " 


RT 


IN 


ERR 


(2)" 


KP 


IN 


N < NEWTON) 


<3>" 


NWS 


IN 


ERR 


C4>" 


KPM 


IN 


J CJOUL) 


<5>" 


CRL 


IN 


J <JOUL> 


<6>" 


N/M2 


IN 


PR (PRSCRL) 


< 7 > " 


KPM/S IN 


W CWRTT) 


<S>" 



240 ON I GOTO250, 270, 290,318, 330, 350, 370, 390 

250 B=A*8.736 

260 PRIHTB1$:PRIHTTAB<:8>;A; " PS* ";B.;" KW " . : PR 

IHTB2*--GOTO420 

270 B=A 

280 PR I HTB 1$: PR I HTTAB < 7 >; A;" AT = MB;*' BAR "' = 

PRIHTB2$:GOTO420 

290 B=R#1@ 

300 PRINTBl*:P'RINTTflBC6);fi;" KP - ";B;" N <NEW 

TON) " : PRINTB2* ; GOTO420 

310 B=fl/10 

320 PR I HTB 1 ■$ ■ PR I HTTAB < 7 > j fl ; " MWS = " J B J " BAR 

■■PRINTB2*:GOTO420 

330 B=A#18 

340 PR I HTB 1 * = PR I HTTAB OS > ; A ; " KPM = " ; B J " J • < JOUL 

■>" :PRINTB2*:G0T042@ 

350 B=A*4. 187 

360 PRINTBl*:PRINTTflB<7)Jfl;" CAL - " J B; " JOUL" : PR 

INTB2*:GOTO420 

370 B=A 

380 PR I HTB 1 * : PR I HTTAB <. 7 > i A i " H/M2 - " ; B ; " PASCAL 

" :f : 'RINTB2$:GOTO420 
390 B=A#10 

400 PR I HTB If •■prihttab<5>;a;" KPM/8 = ";B;".W CWfl 
TT>" =PRINTB2*:GOTO420. 
410 PR I NT= PR I NT: PR I NT 
420 INPUT"NOCHMRL ? <J/HV'.:A* 
430 IFA$="J" THEN40 
440 I F A$= " H " THENPR I NT " END " : END 
450 PR I NTCC* = GOTO420 
460 INPUT I 
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Statistik 



Statistik 

Das Programm Statistik bietet Ihnen folgende Berechnungen an: 

Aus der Kombinatorik: 

— Berechnung der Fakultat 

— Variationen 

— Kombinationen 

Aus dem Gebiet der Statistik 

— Berechnung von Mittelwert 

— Varianz und Standardabweichung 

— Berechnung der linearen Regression mit Korrelationskoeff izient 



Das Programm listet Ihnen die Moglichkeiten: 

(1) KOMBINATORIK 

(2) STATISTIK 

(3) PROGRAMM-ENDE 

Mit der Eingabe von Ziffer 3 wird das Programm beendet, der Bild- 
schirm wird geloscht und READY erscheint. 



Wenn Sie kombinatorische Berechnungen durchzufiihren haben, sogeben 
Sie bitte die Ziffer 1 ein. Ein Driicken von RETURN ist nicht er- 
forderlich. Wenn Sie statistische Berechnungen durchfiihren wollen, so 
geben Sie die Ziffer 2 (ohne RETURN) ein. 

Nachdem Sie im "Grundmenu" die Ziffer 1 gedriickt haben, verzweigen 
Sie in das KOMBINATORIK-Unterprogramm. 
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Das Programm listet Ihnen die Moglichkeit auf: 

KOMBINATORIK 

EINGABE FUER 
FAKULTAT n ! 
VARIATION V(n,r) 
KOMBINATION K (n,r) 

n UND r SIND GANZE, POSITIVE ZAHLEN 

INFORMATION INFO 
PROGRAMM-ENDE ENDE 

ZUM WEITERMACHEN EINE TASTE DRUECKEN 

Drucken Sie nun eine beliebige Taste und am Bildschirm erscheint 

EINGABE— )- 

Wenn Sie INFO RETURN eingeben, so bekommen Sie eine Erklarung 
der Fakultat, Variation und Kombination. 



Wenn Sie sich bei der Eingabe vertippen, so konnen Sie mit der Taste 
DEL das zuletzt eingegebene Zeichen loschen. Durch mehrmaliges 
Drucken dieser Taste konnen Sie mehrere Zeichen loschen und der 
Cursor (Untersteichungsstrich) geht jeweils um eine Position zuriick 
nach links. 

Wenn Sie ENDE RETURN eingeben, so kommen Sie vom Kombina- 
torik-Unterprogramm zuriick zum Grundmenii. 

Wenn Sie die Fakultat einer Zahl berechnen wollen, so geben Sie diese 
Zahl ein und fugen an diese (mit Oder ohne Leerraume) das Zeichen 



Beispiel 1: 

Wir wollen 5 Fakultat berechnen. Dazu geben Sie ein: 5! RETURN 

Als Antwort erhalten Sie: 
5 1 = 120 
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Die Fakultat einer Zahl ist das Produkt der Zahlen 1, 2 usw. bis zur ein- 
gegebenen Zahl, d. h. 5 ! = 1 .2.3.4.5. = 120 

Da Ihr Computer nur einen beschrankten Rechenbereich zur Verfiigung 
hat, kann er nur Berechnungen der Fakultat bis 33 durchfiihren. Falls 
Sie eine groBere Zahl als 33 eingeben, so erhalten Sie die Meldung 

ARGUMENT ZU GROSS 

und Sie werden aufgefordert, eine neue Zahl einzugeben. 0! ist in der 
Mathematik als 1 definiert und diesen Wert bekommen Sie auch, wenn 
Sie 01 eingeben. Wenn Sie irrtiimlich keine ganze Zahl eingeben, so er- 
scheint die Meldung: 

INTEGER-ZAHL EINGEBEN 

und der Cursor springt zuriick auf das Eingabefeld. Wiederholen Sie die 

Eingabe. 

Sollten Sie das !-Zeichen vergessen haben, so erscheint die Meldung: 

UNGUELTIGE EINGABE - WIEDERHOLEN 

Der Cursor springt auf das Eingabefeld zuriick. Wiederholen Sie die 
Eingabe mit l-Zeichen. 

Sollten Sie eine negative Zahl eingegeben haben, so erscheint die 
Meldung: 

UNGUELTIGES ARGUMENT 

Wiederholen Sie auch in diesem Fall die Eingabe. 
Immer wenn Sie das Programm KOMBlKlATORIK beenden wollen, 
geben Sie anstelle einer Zahl das Wort ENDE, gefolgt von RETURN, 
ein und kommen in das Grundmenii zuriick. 

Immer wenn Sie Information iiber die Kombinatorik benotigen, geben 
Sie INFO gefolgt von RETURN ein. Wenn Sie die Variation V(n,r) 
berechnen wollen, so geben Sie ein: 
V(Zahl,Zahl) und driicken RETURN 
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Die Zahlen, die Sie eingeben, sollen ganze Zahlen sein, wobei die erste 
Zahl groBer oder gleich der zweiten Zahl sein soil und durch Komma 
von dieser getrennt wird. 

Sie erhalten die Fehlermeldung 

INTEGER-ZAHLEN EINGEBEN 

falls Sie keine ganzen Zahlen eingegeben haben sollten. In alien anderen 
Fallen (negative Zahlen, zweite Zahl groBer als erste) die Meldung 

UNGUELTIGES ARGUMENT 

In alien Fallen einer Fehlerbedingung springt der Cursor zuriick auf das 
Eingabefeld. Wiederholen Sie nun die Eingabe. 

Die Variation einer Zahl n zur Klasse r (Eingabe V(n,r)) ist mathe- 
matisch folgend definiert: 

V(n,r) = n.(n-1) (n-r+1) 

Beispiel 2: 

Berechnet werden soil (v(5,3). 
GebenSieein: 

V(5,3) und driicken Sie danach RETURN 

Sie erhalten die Antwort 
V(5,3) = 60 

Es wurde folgend gerechnet: 
V(5,3) = 5.4.3 

Die erste Zahl gibt an, von wo weg multipliziert wird, die zweite Zahl 
gibt an, wieviele Faktoren multipliziert werden, wobei von n aus- 
gehend (r-1 )-mal multipliziert wird, und der Faktor jeweils urn 1 ver- 
mindertwird. 

Wenn Sie die Kombination von n zur Klasse r berechnen wollen, so 
geben Sie ein: 

K(n,r) und driicken RETURN 
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Der Ausdruck K(n,r) ist wiederum nur dann sinnvoll, wenn beide 
Zahlen ganze, positive Zahlen sind und die Zahl r nicht groKer als n ist. 

Sie erhalten wieder wie vorhin die Fehlermeldungen: 

INTERGERZAHLEN EINGEBEN 
UNGUELTIGES ARGUMENT 

falls Sie falsche Werte eingeben. Trennen Sie die beiden Zahlen durch 
ein Komma. 

Mathematisch ist der Ausdruck K(n,r) folgend definiert: 
K(n F r) = n!/((n-k)!.k) 

Anders geschrieben ist dieser Ausdruck: 
(n/r).(n-1/r-1)....(n-r+1/1) 

Beispiel 3: 

Berechnet werden soil: 
K(5,3) 

Geben Sie ein: K(5,3) RETURN 
Sie erhalten als Antwort: 
K(5,3) = 10 

Gerechnet wurde: 

5.4.3/(1.2.3) Oder anders geschrieben: (5/3). (4/2). (3/1) 

STATISTIK-UNTERPROGRAMM 

Wenn Sie im Grundmenii die Ziffer 2 eingeben, so kommen Sie in das 

Statistik-Unterprogramm. 

Das Programm meldet sich mit dem Titelblatt, wo Ihnen die Moglich- 

keiten gezeigt werden. 

Sie konnen Mittelwert, Standardabweichung und Varianz berechnen, 

indem Sie nun die Ziffer 1 eingeben und Korrelationsgerade und 

Korrelationskoeffizient mit der Ziffer 2. 

MITTELWERT, STANDARDABWEICHUNG und VARIANZ 

Wenn Sie im Statistik-Grundmenii 1 gewahlt haben, so zeigt Ihnen 
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der Bildschirm: 

MITTELWERT-VARIANZ-STANDARDABWEICHUNG 

GEBEN SIE BITTE DIE ZAHLENWERTE EIN 
ZUR KORREKTUR GEBEN SIE 'KORR' EIN 

BEENDEN SIE DIE EINGABE MIT 'ENDE' 

EINGABE — 
Geben Sie nun die Zahlen ein, fur die Sie Mittelwert, Standardab- 
weichung und Varianz berechnen wollen. 

Beenden Sie die Eingabe der Zahlen jeweils durch RETURN. Wenn Sie 
bei der Eingabe der Zahl einen Tippfehler gemacht haben, so konnen 
Sie, bevor Sie RETURN driicken, durch die Taste DEL (Delete) das 
zuletzt eingegebene Zeichen loschen. Durch mehrfaches Driicken der 
Taste DEL loschen Sie mehrere Zeichen und der Cursor springt urn 
jeweils eine Position nach links zuruck. 

Haben Sie RETURN gedruckt und bemerken Sie erst jetzt, daB Sie die 
eingegebene Zahl falsch getippt haben, so konnen Sie jetzt anstatt der 
Eingabe der nachsten Zahl KORR RETURN geben und die letzte Zeile 
wird geloscht und der Cursor springt um eine Zeile zuruck. Sie konnen 
jedoch nur die letzte Eingabe mit KORR beseitigen — weiter zuriick- 
liegende Fehler konnen nicht behoben werden. 

Wenn Sie die Zahleneingabe beschlieRen wollen, so geben Sie ENDE 
RETURN ein und das Programm sagt Ihnen, wieviele Zahlen einge- 
geben wurden. Danach werden Sie gefragt, ob Sie die Berechnung der 
Standardabweichung und der Varianz mit N-Gewichtung oder (N-1)- 
Gewichtung durchfuhren wollen. Oblicherweise wahlt man (N-1)- 
Gewichtung. 

Danach listet Ihnen das Programm Mittelwert, Standardabweichung 
(Wurzel aus Varianz) und die Varianz. Es wird Ihnen auch nochmals 
gedruckt, ob Sie mit N- oder (N-D-Gewichtung gerechnet haben. 

Am Bildschirm erscheint auBerdem die Meldung: 
ZUM WEITERMACHEN EINE TASTE DRUECKEN 

Driicken Sie eine beliebige Taste, so kommen Sie in das Grundmenu 
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zuriick. Wahlen Sie dort die Ziffer 3, so beenden Sie das Programm, 
ansonsten verfahren Sie wie vorher beschrieben. 

Wenn Sie im Statistik-Programm die Option 2 fiir lineare Regression 
wahlen, so meldet sich das Unterprogramm fiir die lineare Regression: 

LINEARE REGRESSION 

GEBEN SIE BITTE ZAHLENPAARE, GETRENNT DURCH EIN 
KOMMA, EIN 

ZUR KORREKTUR GEBEN SIE KORR EIN 

DIE EINGABE BEENDEN SIE MIT ENDE 

Fiir die Eingabe gilt das, was vorhin fiir die Eingabe im Unterprogramm 
Mittelwert gesagt wurde. Mit DEL wird die Eingabe korrigiert, falls Sie 
nicht schon RETURN gedriickt haben. Mit KORR RETURN konnen 
Sie die letzte eingegebene Zeile loschen. Weiter zuriickliegende Fehler 
sind nicht korrigierbar. 

Sollten Sie die Zahlen nicht durch Komma getrennt haben oder nur 
einen Zahlenwert eingegeben haben, so ignoriert das Programm diese 
Eingabe und wartet auf eine zulassige. 

Der erste Zahlenwert entspricht der X-Koordinate des Punktes, der 
zweite Wert der Y-Koordinate des Punktes fiir die Sie die Regressions- 
gerade berechnen wollen. 

Haben Sie alle Punktepaare eingegeben, so geben Sie bitte ENDE 
RETURN ein und das Programm listet Ihnen die Anzahl der einge- 
gebenen Zahlenpaare, die Steigung der Regressionsgeraden, den Schnitt- 
punkt mit der Y-Achse und den Korrelationskoeffizienten. 

Nun wartet das Programm, bis Sie eine'beliebige Taste driicken, urn 
Ihnen Zeit zum Abschreiben des Ergebnisses zu lassen. 

Wenn Sie eine Taste gedriickt haben, so erscheint am Bildschirm: 

WOLLEN SIE WERTEPAARE (X,Y) DER 
KORRELATIONSGERADEN BERECHNEN 

GEBEN SIE BITTE J ODER N EIN 
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Driicken Sie nun bitte J fiir JA oder N fur NEIN. Mit N kommen Sie 
in das Grundmenii zuriick. 

Wenn Sie J gewahlt haben, so konnen Sie fiir ein bestimmtes X den 
Y-Wert auf der Korrelationsgeraden berechnen oder umgekehrt fiir ein 
vorgegebenes Y den X-Wert berechnen (Prognosen). 

Am Bildschirm erscheint: 

SCHREIBEN SIE X=ZAHL ZUR BERECHNUNG DES Y-WERTES 
UND Y=ZAHL ZUR BERECHNUNG DER X-WERTES 

EINGABE — >- 

Falls Sie z. B. den Y-Wert der Regressionsgeraden fiir den X-Wert 12.3 
berechnen wollen, so geben Sie ein: 

X=12.3 RETURN 

Zwischen X und dem Gleichheitszeichen darf kein Leerraum sein. 

Sie erhalten nun den Y-Wert ausgedruckt. 

Wollen Sie zu gegebenem Y das X-Argument berechnen, so geben Sie 

ein: 

Y=Zahl RETURN 

Auch hier darf zwischen Y und = kein Leerraum sein. Sie bekommen 
daraufhin das Argument ausgedruckt. 

Wenn Sie weitere Prognosen berechnen wollen, so wiederholen Sie die 
Eingaben X= . . . und Y= . . . beliebig oft. Wenn Sie das Programm 
Lineare Regression beenden wollen, so geben Sie ENDE ein und 
kommen so zuriick ins Grundmenii. 



1 P0KE53272..23 

2 POKE 5328l,7:PQKE532i30,3 
4 PRINTCHR*a44> 

10 REM MflTH-PflC 6 

20 REM STATIST IK 

30 REM 

40 REM PROGRAMM I ERT VON 
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59 REM WALTER WRLDNER 

60 REM RBGERENBERT RUF C-64 VON 
78 REM WINFRIED HOFRCKER 

30 REM 

90 REM 

10© PRIHT"nMRTHPflC-6"TREa8> "KOMBINRTORIK, STAT IS 

TIK" 

110 FORI=0TO39: PRINT"-"; : NEXT 

120 PRINT'MMMWDIESES PROGRRMM BIETET IHNEN" 

130 PRINT ,, WWW<1> KOMBINRTORIK 

140 PR I NT "WC 2) STRTISTIK" 

15© PR INT "MO) PROGRRMM-ENDEMMM" 

155 PRINTTRB<22V'MM 

160 PRINT'TBITTE WREHLEN SIE — > _" ; 

1 70 POKE 1 98 , : Wfl I T 1 98 , 1 : OETflt- '■ POKE 1 93 , • I Ffi*< " " 

ORfi$>"3"THEN170 

175 IFfi$="3"THENP0KE53272, 21 : PR I NT "3" = END 

1 30 ONVRL < fl$ ?.' GOTO 1 000 .. 2000 

1000 REM KOMBINRTORIK 

1 005 PR I NT " ZKOMB I NflTOR 1 1< " 

1010 PRINT"*WEINGflBE FUER" 

1015 PRINT "MMSFflKULTflET-'H N! 

1020 PR I NT " JPSv'RP. I RT I ON = ■ V < N , R ) 

1 025 PR I NT " WflKOMB I NAT I ON -S K < N , R > 

1027 PRINT"WMW UND R SINH GRNZE, POSITIVE ZRHLEN 

II 

1030 PRINT" MMSU NFORMRT I OH = ■ I NFO " 

1 03 1 PR I NT " MMSF'ROGRRMM-ENBE = ■ ENBE " 

1 033 GOSUB 1 0000 : PR I NT " 3 

1034 PRINTTfiB<.10>"W» 

1035 PRINT'TEINGRBE — > _" ; : GOSUB20G00 

1039 PR I NT "Wfl 
ii 

104© IFflfl*=" IHFO"THEHGOTO30000 

1045 IFRR$="ENBE"THEM100 

1 050 I FR I GHT* < RR$ , 1 > = " ! " THEN 1 200 

1 060 I FLEFT* (. RR$ , 1 > ~ " V " THEN 1 300 

1 070 I FLEFTf i RR$ , 1 > = " K " THEN 1 400 

1080 PRINT'TUNGUELTIGE EINGRBE - WIEDERHOLENTm 

" = GOTO 1034 

1 200 fl=VRL < LEFT* < fi A* , LEN < flfl* > - 1 > > 

1 205 I Ffl=0RNDflfl$<> " ! " OR A-CGTHENPR I NT " rUNGUELT I GE 

S ARGUMENT" : GOTO 1034 
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1286 IFfl>33THENPRINT"TRRGUMENT ZU OROSSTnTTTl" = 

GOTO 1834 

1297 IFflOINTCfl>THENPRINT"niNTEOER-ZflHL EINGEBEN 

"■•GOTO 1034 

1210 P*l •■ FORI=lTOfl : P=P*I '= NEXT '■ PR INTRA* " = "P : GOT 

01033 

1 300 FOR I = 1 TOLEN < flfl* ) '• I FM I D* < flfl* , I , 1 ) = " > " THEN 1 3 1 



1305 NEXTiPRINT'TUNGUELTIOe EIHGflBE: 1 1 1 111 3" : GOTO 

1034 

1310 Z 1 *=M I B* (. flfl* ,3,1 -3 > = Z2*=M I D$ < flfl* ,1 + 1, LEN < flfl 

*>~I~1> 

1320 Z1=VAL<Z1*> :.Z2-VfiLCZ2*> ■• IFZK0ORZ2<0THEN139 



1 325 I F < Z 1 =0flNDZ 1 *<> " " > OR < Z2=0flNBZ2*O " 9 " > ORZ 1 = 
OORZKZ2THEN1390 

1 326 I FZ 1 1 NT < Z 1 > 0RZ2O I NT < Z2 ) THENPR I NT " HI NTEGE 
R-ZRHLEN E I NGEBEN " : GOTO 1 034 

1330 P=l :F0RI=Z1T0Z1-Z2+1STEP-1 :P«P#I : NEXT : IFZ2= 

0THENP=i 

1340 PR INTRA*" « "P'- GOTO 1033 

1 390 PR I NT " nJNGUELf I GES flRGUMENTrTTTTTTT : GOTO 1 03 

4 

1 400 FOR I = 1 TOLEN < flfl* ) : I FM I D* < flfl* , 1 , 1 ) » " .- " THEN 1 4 1 



1 405 NEXT : PR I NT " rUNGUEL t I GE EI NG ABETTTTTTT = GOTO 

1034 

1410 Z 1 *=M I D* < flfl* , 3 , I -3 > ■• Z2*=M ID* < flfl* ,1 + 1 , LEN (. flfl 

*>~I-1) 

1420 Zl=VflL<Zl*) :Z2=VflL<Z2*) • IFZ1<0ORZ2<0THEN139 


1421 I FZ 1 1 NT (. Z 1 ) 0RZ2O I NT < Z2 ) THEN 1 326 

1422 IFZ1=Z2ORZ2=0THENP«1 = GOTO 145© 

1 425 I F < Z 1 =0flNBZ 1 *<> " " ) OR <. Z2=0flNDZ2*<> " O " > ORZ 1 » 

OORZKZ2THEN1390 

1430 IFZ2>Z1~Z2THENZ2=Z1-Z2 

1 440 P== 1 •• FOR I =Z2T0 1 STEP- 1 •• P=P*Z 1 / 1 = Z 1 =Z 1 ~ 1 '• NEXT 

1450 PRINTflfl*" •- "P: GOTO 1033 

2000 PR I NT " riBTfiT I ST I KWXMW" 

20 1 PR I NT " B I ESES PROGRfiMM BERECHNET : M" 

2020 PR I NT "SKI) MITTELWERT 

2025 PRINT" VflRIRNZ 

2030 PRINT" STflNBflRBRBWEICHUNG 
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2035 PRINT"MKK2> KORRELRTIONSGERRBE 
2040 PRINT" KORRELATIONSKOEFFIZIENT" 

2059 PRINT"WWWBITTE UREHLEN SIE 1 ODER 2 — > 
_" .; : POKE 1 98 , O : Wfl I T 1 98 , 1 = CETR* 

2060 POKE 1 98 .. • I. Fflf-O " 1 " FlNDR*<> " 2 " THEHPR I NT " rrm 
" : GOTO2050 

2070 ONVRL < flf ':> G0T02 1 00 .. 3000 

2 1 00 PR I NT " 31 I TTELWERT-VRR I flNZ-STANBRRBABWE I CHUNGHH" 

2101 PRINT M W03EBEN SIE BITTE DIE ZflHLENWERTE EIN" 
2105 PRINT"MEUR KORREKTUR GEBEM SIE 'SKQRR'H EINS 



2106 PRINT"BEENBEN SIE DIE EINGRBE MIT S'ENDE'SKKWS" 

2110 SX=0 : SQ-0 = T=0 : N=0 

2 1 20 PR I NT " ME I NGRBE — > _" ; ■ OOSUB20000 : X= VRL < Rfl * > 
2125 ■IFflfl*="ENDE"THEN2200 

2 1 30 I Fflfl*<> " KORR " THEN2 1 40 

2131 PR I NT "1 " ■ PR I NTTRB 

(i@)"Tn m" 

2132 H=N-1 = S:«:=SX-T : SQ»SQ-T*T : 00T02128 

2 1 40 N-N+ 1 : SX*SX+X : SQ*SQ+X*X : T=X : G0T02 1 20 

2200 PR INT "33 IE HflBEN"N" ZflHLENWERTE EINGEGEBENMMMHS" 

£210 PRINT"WUENSCHEN SIE GEWICHTUNG DER VRRIRNZ" 
£220 PRINT"MJNB STRNBRRBREWEICHUNG NIT" 
2230 PRINT"M*K1> N ODER 
£235 PR I NT "W. 2 > N-l 

2240 PRINT"WWWKWREHLEN SIE BITTE 1 ODER 2 > _" 

2250 POKE 1 98 , : Wfl I T 1 98 , 1 : GETfl* : POKE .1. 98 , @ '■ I Ffl*< " " ORR 

t>"2"THEN22S0 

2260 MW-SX/N : SR=SQR C < SQ~SX*SX/'N >/ ( N- 1 > > ■• Vfl=SQ/N~MW#M 

•J 

2279 I Ffl*= " 1 " THENSfl=SQR ( Vfl > 

2280 IFfl*="2"THENVfl=Sfl#Sfi 

2300 PRINT"naiITTELWERTH"TflB<20>MW 

23 1 PR I NT " MBMSSTflNDflRDFIBWE I CHUNOH" TAB ( 20 > SR 

2320 PR. I NT " WWWaWRR I ANSI" TAB < 29 > Vfl 

2330 PRINT"MMMGERECHNET WURDE MIT "; 

2349 IFR*="1"THENPRIHT"N"; : 00T0236© 

2350 PR I NT "N-l"; 

2360 PR I NT " OEW I CHTUNG SWWi" : GOSUB 1 3003 
:400 GOTO 100 
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3PIPI0 PR I NT " n. I NEREE REGRESS I ONSET 

361 Pi PPINT"GEBEN S1E BI.TTE ZRHLENPRRRE.. GETRENNT" 

3Fi2G PRINT"DURCH EIN KOMMfi, EINMttH" 

3Pi3Pi PPIHT"Z!IR KORREKTUR GEBEN SIE S'KORR'H EINWW" 

3G40 PRINT"!' IE EINGRBE BEENBEN SIE MIT- S'ENDE'HMMW" 

3045 SX=@ '■ SV-0 : QX=@ : QV=0 : N"0 : TX~0 '■ TV=@ : XV=0 

3050 PRINT"SMWEINGRBE — > _" ; '■ GOSUB20000 

3052 IFflfif="ENBE"THEN3500 

3Pi54 I Fflfl*<> " KORR " THEN3 1 00 

3060 PR I NT "H "T-'RINTTRI 

npivrrrrn ttti" 

3070 N-N-l : SX=SX~-TX ■■ QX=QX-TX#TX : SV=SV~TV : QV»QV-TV*TS 

: XV=XV-TV#TX ; GGTO3050 

3100 'FORI-lTOLEN<flfi*> : IFMID*<flR*; I •• 1 > = " •• "THEN3105 

3 1 02 NEXT : PR I NT " 1 "^ 

" ■ nnTn:3050 

3 1 05 X= VFIL '•. LEFT* < RR* ■■ 1 — 15 5 "■ Y= VRL < R I GHT$ < flfl* , LEN < flfl* : 

~I>> 

3130 N=H+1 : SX=SX+X : QX=QX+X*X = TX^X : SV=SV+V : QV=QV+V#V ■ 

TV=V '• XV=XV-+X#V ■• GOTG3050 

3400 GOTG3700 

35i"i0 N=<X i t'"-SX*SV/N>/'::QX-SX*SXXN> 

3510 B~ '■■ SV-M*SX > XN ; MX==SX/N '■ MV~SVXN : VX=SQR < QX/'N-MX*n: 

".' ■ VV=SQR'::QV/N~MV*:MV:j 

3f=i?0 R=M#VX/VV 

353PI PR I NT " HE I NGEGEBEM WURDEN " N " ZRHLENPflflREMHS" 

^4Pt ppiNT"aSTEIGUNG DER. GERRDENH"TflB<25>M 

354!=! PR I NT " MSSSCHN I TTPUNKT V-RCHSEB" TfiB C 25 > B 

3550 PR I NT " MHSKQRRELFIT I ONSKOEFF . ■" TAB < 25 > R "MTOfl" 

3Sh-.Pi ftOSUB I 0000 

3600 PR I NT "SWOLLEN SIE UlEETEPflflEE <X,V::. DER" 

3F, 1 Pi PR I NT " XKORRELRT I ONSGERRBEN BERECHNEN " 

3fi?Pi PPTNT"WTOCEEEN SIE BITTE 'J' ODER 'N' EIN" 

3630 POKE 1 98 ..0: WRIT 198, 1 = GETfi* • POKE 198, '■ IFfl*0"J"fl 

tiR$<>"N"THEN3630 

3fi4G IFfl$="N"THEN100 

3650 PRINT"WWia«SCHREIBEN-SIE 3'X=ZflHL/H ZUR BERECHN 

NG 

3660 PRINT"MDES V-WERTES UND S'V=ZflHL'H ZUR BERECHN 

NG 

367G PRINT"DES X-WERTES" 

37PI0 PR I NTTfiB ( 1 ';■ " KTO8 ei" 

3710 PRINT "EINGRBE — > _" .'. : GGSUB2G000 
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3712 I FLEN < Rfl* > <3THEN3750 

3715 IFflfl$= ,, ENDE"THEH100 

3720 f\=VF\L<:Rl\3HT$<.ftm.-l.EH<:.m$:.<~2y:> ■ IFR-ORNBRIOHT^RR 

* , LEN < RR* ':> -2 > <> " 9 " THEH3750 

3730 I FLEFT* < FIR* , 2 > = " )<= " THEN3800 

3740 I FLEFT* (RR*, 2> = '"t'="THEN3900 

3750 pr i nt " rrrm" : 00103700 

3800 V=M#R+E '• PR I NT " '.BTt' = " V ■ 00T039 1 

3900 X- (. R-B 1> /M = PR I NT " M< = " X 

3910 PRINT"M«FRLLS SIE KEINE WE ITER EN EERECHNUNGEN" 

3920 PR I NT "SUIT DIESER OERRDEN WUENSCHEM, GEEEN SIE" 

3930 PRINT"MSENDEH EIM, RNSONSTEN EINGREE WIE VORHIN 

3940 GGTO3700 

9999 END 

10000 REM WRRTE-SCHLEIFE 

10005 PRINT"MM«SEUM WEITERMflCHEN EINE TASTE DRUECKEN 

II 

10010 POKE198,0:WRIT193, 1 = POKE 193, 9 : RETURN 

20000 REM STRHDRRD-EIHGREE-ROUTINE 

20010 POKE19S/0:flfl*="" 

20020 GETR* = I Ffi*~ " " THEN20028 

20030 I FRSC < R* -,< = 1 3flNDfifl*= " " THEN2002S 

20040 I FRSC. ■:: R* y ~ 1 3THEN20 1 00 

20050 I FRSC <. R* > -20RNDLEH < RR* > = 1 THENPR I NT " 15 IIL" ; : RR* 

= "" :GOTO20020 

1'0060 I FRSC < Rf > =2@THEHPR I NT " II IIL" ; : RR*==LEFT* < RR* , LE 

\ < RR* > - 1 '.'.' '• GOTO20G20 

0070 PR I NT " 18" R$ " _" .; ■■ flfl$=Rflf-+fl$ '• GOTO20020 

010© PRINT"li " : RETURN 
J0008 PR I NT " 31 NFORMRT I ON KOME I NRTOR I KMM" 

0005 PR I NT " SFRKULTRET = »" 



:. % <N--2> * ... * 1" 
::N-1> * # (N-R+l 



0018 PR I NT "N! = N * <N~1 

:00 15 PR I NT " MMS8WFIR I RT I. OH 

:0020 PR I NT " V ( N , R ) - N * 

10030 PR I NT " MMSflKOMB I NAT I ON : '.«" 

18035 PR I HT " l< < N , R ) = N ! / < R ! # < N-R > ! > 

0040 GOSUB 10008 

:0050 GOTO 1085 
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Slotmaschine 



Slotmaschine 

Dieses Programm verwandelt Ihren C-64 in einen Spielautomaten. 
Spielen Sie jetzt zu Hause und sparen sich Ihr Geld fur Biicher und 
Programme. 

Der Einsatz betragt 1,- DM. Starten Sie mit RUN und driicken Sie 
irgend eine Taste. Ein Spiel wird jetzt gemacht, indem Sie die Space- 
Taste oder wieder eine beliebige Taste driicken. 

5 PRIHTCHR$a44> 

6 PQKE53281,1 : POKE53280..8 

7 REM BE in KOPIERE WIRD DIESES PROGRRMM 

8 REM ZERSTOERT UND 1ST IM SPEICHER UND 

9 REM RUF DER CRSSETTE GELOESCHT. 
1© REM SLOT MACHINE 

20 PR I NT " 3" ; '• PR I NTTflB <1 2 > " SLOT MRSCH I NE " 

30 PR I NT " W : PRINT" Dfi-S 1ST EIN PUNKTE WERT 

SPIEL" 

40 PR I NT : PR I NTT AB '■. 6 ) " $=6v *=5 , »=4 > *=3 .• *=2 > *= : 1 

50 PRINT: PR I NT "DRE I CLE I CHE IN EINER RE I HE LIEFER 

N DEN" 

55 PRINT 

60 PRINT"HflUPTGEWINN.ZWEI MIT MINDESTENS 4 ODER" 

70 PRINT:PRINT"MEHR ZflHLT DM 5. -.DER REST ERINGT 

DM1..-" 

75 PRINT 

80 PRINT:PRINT"ZWEI RUSSEN MIT EI HEM WERT VON 4 U 

ND " 

90 PRINT"WERTE GROESSER 4 BEZAHLT DM 1.- 

95 PRINT 

100 PRINT:PRINT--PRINT"RLS EINTRITT EITTE DM 1 . - " 

1 1 PR I NT : PR I NT " RUFHOEREN M I T ' Q ' " ; 
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138 GET R*=IF R*="" THEN GOTO 138 

135 POKE 59468, 12 

140 PR I NT "H" 

155 FOR K=l TO 49 

160 POKE 1023+K.. 42 : P0KE 1224-K..42 

161 NEXT K 

163 O-l 

164 L=127 

165 PRINT"HM" : PRINT" SILBER DOLLAR SLOT SPI 
EL DM 1.-" 

166 PRINTCHR*<28> 

1 78 PR I NT " XKDtMBBKM" : PR I NTTflB < 20 > " ,— , _" 
1 75 PR 1 NTTflB < 1 6 > " ./"~ 1 I A " 
180 PRINTTRB<16V'*, ,-,0 ,-, M I " 
185 PRINTTflBa6> n SH- J - J - , - L - , - i a 5i ■" 

1 90 PR I NTTflB ( 1 5 > " ST W \ " 

1 95 PR I NTTflB < 1 5 V a ■■■■■■■■■■■■■■ ■ 1 " 

200 PR I NTTflB a 5 > "I I I Si" I"- 

295 PR I NTTflB <1 3 > " S !■ «— ST B J " 

210 PR I NTTflB a 5 >"«**♦♦♦♦♦■ «S " 

215 PR I NTTflB U 5 V 3* **# *B I " 

220 PR I NTTflBd 3 >"«♦♦♦♦♦♦♦■ ./" 

223 PRINTTflB<13>"S TNT B/" 

226 PRINTCHR$a56> 

230 PRINT:PRINT:PRINT"SPIELE BEZflHLT DM 

TOTAL DM" 
235 GOTO 650 
240 FOR Bl=l TO 3 
250 LET D < B 1 > = I NT < RND < 1 > *6 > + 1 
260 NEXT Bl 
265 FOR Gl=l TO 3 
270 IF IKG1> = 1 THEN 340 
280 IF D<G1>=2 THEN 360 
290 IF DCG1>=3 THEN 380 
300 IF DC CI) =4 THEN 400 
310 IF D<C1>=5 THEN 420 
320 IF D<G1>'=6 THEN 440 
330 GOTO 640 
340 POKE 1558+<G1*2::',65 
350 GOTO 450 
360 POKE 1558+031*2:^90 
370 GOTO 450 
380 POKE 1558+<G1*2),8S 
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33© 


GOTO 459 




400 


POKE 1553+031*2), 83 




410 


GOTO 450 




420 


POKE 1558+<G1*2>,42 




430 


GOTO 450 




440 


POKE 1 558+ < G 1 *2 > , 36 




458 


NEXT Gl 




470 


IF ria>=D<2> THEN GOTO 


500 


430 


IF D<2>=IK3> THEN GOTO 


520 


490 


IF D<1)=D<3> THEH GOTO 


540 


495 


GOTO 590 




500 


IF D<2>*D<3> THEN 639 





505 IF D(l)+D(2)>=8 THEN GOTO 570 

510 GOTO 616 

520 IF D<2)+IX3»»8 THEN GOTO 570 

530 GOTO 61S 

540 IF IK1)+I)(3)>=3 THEN GOTO 610 

550 GOTO 590 

560 IF Da.V20INT<Da V2> THEN 610 

570 LET B=B+5.0:LET fl=5.0 

580 GOTO 650 

590 LET B=B~1.0M_ET R=-1,0 

600 GOTO 659 

610 LET B=B+1„0:LET fl=l„Q 

620 GOTO 650 

630 LET B=B+20.0--LET 8=20.0 

640 GOTO 650 

eso pr i nt" mmmmmmmm&wmmir 

655 C=C+1 

658 POKE 1964,32 

6&d PRINT C TflB<17>"DM"fl" ,, TflB<3£> "Dir'B" 

670 GET R*:IF R$="" THEN 678 

690 IF R*0"Q" THEN GOSUB 770 : GOTO 24G 

700 PRINT'THMMM" ■ 

710 IF B<0 THEN GOTO 730 

728 PRINT n IHRE GEWINNE SINB DM"B 

725 PR I NT " 1MMDMM" ■ END 

730 PRINT"NOCHEINMRL? HEINE VERLUSTE BM"B 

740 PRINT"3«WWWttW" 

750 END 

770 REM ARM 

772 FOR P=1443 TO 1608 STEP 40 

775 POKE P+40, 160 
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730 


POKE F',101 


782 


FOR K*l TO 20: NEXT K 


784 


GOSUE 815 


735 


NEXT P 


790 


FOR P=1643 TO 1488 STEP -4 


792 


POKE P-4Q.. 160 


794 


POKE P,97 


795 


FOR K=l TO 5: NEXT K 


796 


GOSUB 815 


797 


NEXT P 


798 


POKE 59459,0 


799 


RETURN 


80S 


GOTO 815 : G=567 : D=78 '• W=579© 


815 


FOR 0=2 TO 6 STEP 2 


>m? I-* '—' 


POKE 1553 +0,L 


322 


M=L 


325 


IF L=127 THEN LET L=255 


830 


IF M=255 THEN LET L=127 


335 


NEXT 


836 


IF L=127 THEN POKE 59459, 100 


837 


IF L=255 THEN POKE 59459,101 


840 


RETURN 


356 


END 
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TIC - TAC - VIC 



TIC-TAC-VIC 

TIC-TAC-VIC ist eine TIC-T AC-TOE Version f ur den Commodore- 
64 .. Geben Sie das Programm in Ihren Computer ein und achten Sie 
peinlich auf alle Leerzeichen und Cursorsteuer-Symbole. Stimmt die 
Eingabe nicht bis auf das letzte Steuerzeichen mit dem Listing iiberein, 
gibt es Probleme. 

Dies liegt in erster Linie an der unsinnigen Steuerzeichenhandhabung 
des Commodore-BASIC. Andere BASIC-Versionen verwenden hier SET 
oder DRAWTO-Befehle. Hier kommt man mit herkommlichen Zeichen 
aus und muB nicht identifizieren, ist das nun Cursor nach links, rechts 
oder gar ein Graphikzeichen ? 

Also aufgepasst bei der Eingabe ! 

Starten Sie mit RUN. Der Computer fragt Sie, ob Sie "X" oder "0" 
haben wollen. Wer X wan It, beginnt mit der ersten Plazierung. Wenn 
Sie "0" wahlen, beginnt der Computer das Spiel. 

Ziel des Spieles ist es, drei Zeichen gleicher Art in eine Reihe zu be- 
kommen (entweder waagrecht, senkrecht oder diagonal). 



1 REM ELCOMP HOFflCKER 

2 PRINT"T = POKE53280J 4 : P0KE53281 *1 

3 PRINT"T: PRINT: PRINT r ^ ^ 

4 F0RX-1T06: PRINT" H 3! ai""-NEXTX 

5 PRINT".! 19! 23 I 3" 

6 PRINT" S i" 

7 F0RX=1T06: PRINT" d S ai" : NEXTX 

8 print" n 4a ! sa ■ s" 

9 PRINT" a ■" 

1 S FGRX= 1 T06 : PR I NT " a ■ 3 ■" : NEXTX 

11 PRINT"! 7fl 1 3S ■ 3" 



110 



m ns Fn ?i R 2 S !fc5 £P H! £S w ,;J w W " « 

CO Ch CJI u> l\J i->(Sa)ChK)Oi]Cii1iiJl(OMi- 



O) M W (J) W M M 



Tsco 

4- .-s 

Ch 7s 

v-' + 

II © 

I s_' 

»- /\ 

• V 

© © 

-» a: 

o m 
*-*■ ^ 
vo *- 
cn -j 

>3 



-n 

© 

W^S 

+ 

CT» 
•v» 

o 
m 



-n -n 

to CO 

7s 7% 

+ + 

© Ctn 

S.* S.' 

V V 
© O 
-I -4 
X X 

m m 



CO i— « 

.^ -n 

7s CO 

+ --v 

CO 7s 

+ 



CO 

SX 

•S 

V 

© 



-M 

© 



-si "M 

© © 



I © 

O —I 

-I X 

o m 

>-- X 
sO i-* 

en -nj 



-n -n 
to CO 

/\ .'% 

+ sv 

<T) /\ 

s.- \S 
/\ © 
V -J 
O X 

-h m 

X X 

rn »-* 
x at 
>-* co 
a> 
en 



CflHW 
.•-\ -T) TJ 
'-4 CO CO 

+ .-, .^ 

PO *-t '-I 

■-f + +• 
ii i— ro 
I w -^ 

*— /s. /\ 

© o © 

O -I -4 
-•XX 

o rn m 

y- X X 

sO *-* »-* 

cn ui oi 
' © © 



Www 

.^ ti ~n 
<-t co to 

S.' X"S .--^ 

II <— <— 
I + + 

•— *-■ rv> 

© /s /s 

O V V 

-H © © 

O -I -I 
►-» X X 

so m m 
cn x x 

cn cn 

CD CO 



» 00 Ch 

' CO i-i 

I y^ TJ 

' <-, CO 

+ xV 

i >— <— 

-' + 

II f 

I sx 

I *- .-'S 

: •• v 
© CD 
o —I 

-t x 
o m 

sO >—• 

cn en 

© 



OCOWCIAtOW^GI 



-no 
to PD 

ys C-4 
<-H M 

/N -I 

V o 

O -J 
-H tO 
X -I 

mm 

X T3 

»-* CO 

to •• 

cs> m 

o 

.•=0 

II 



o 
to 



O WHM 

o -n -ti ~n 

-I CO CO CO 
O * 3* * 



o 



© 
II 



CO 



x x >-* -h -^ 



.^ XS .^v 



I CO 



O © © © © 

y> © -si ij» cn 

»— I I— « I— • fr— 1 fj'j 

ti m -n -n ^-.. 
co co to © »-» 

x~\ x^ .--s ^*^ Sv- 

© Ch *. |\> II 
s^- s-^ s^ I 

II II II II f 



rn h- m »-» m 



333 

I I I 



3 

I 



S_' S^ Sj' 

"s -s X 

© © © 

S-< *'.^ Sw» 

+ + + 

© Is) >— 
H II II 
3 3 3 
-4 -I -I 
XXX 

m m m 
xxx 

7s 7s 7s 
II II II 

© ro w 



►— •-• no 



© 

+ 



ID 35 3> 3> © 
X X X X O 
•=• tJ t* O -I 
CO CO © CO © 
.■~s ^\ ^-^ ,--\ I—* 

so y> i^ i-» 'jo 

■w •%.' s^ s^ tj\ 

II II II II 

CO CD CO © 

— I — I — I — I 

X X X X 

m m m m 



© © © © 

sO sO i-» i— 



© 



cti cn cn cn 
© cn ro © 

*► -n m to 
II o -» m 
= ■» o x 

o ll_ V* -4 

■" x >— M 

<* -« o m 

« i»r 

= m ii r 

-j "n x x = © 



CO © © 
© Is) © 

►-* w © 
-n "s ii 
© cn i 

^S Sj' I—* 

cn ii •• 
-• i x 
/\ ►- ii 
■v» •• ►- 
►-»©•• 

— I O i-i 

x 

m o co 

X •- X-v 

»— "J) cn 
© cn s/ 
C) /\ 

© 

-» 
x 
m 

x 

© 

© 



•M 

cn 



x a 
m c: 

x 
cn 
pj 

s 
X 



o 

33 



O 



178 GOTO450 

171 IFS<3>=GP,NDS<7>=0THEN187 

172 !FS<9>=GflNDSa>=0THEN181 

173 IFS<7)=GRNDS<3>=0THEN183 

174 IFS<9>=0fiNDSa>=GTHENlS9 

1 75 I FG=- 1 THENG= 1 : H=- 1 : GOTO 1 1 

176 IFS<9>=lfiNDS(3>=0THEH132 

177 FORI=2TO9:IFS(DO0THEN179 

178 Sa>=-l:G0T0195 

179 NEXT I 

181 S(i)=-l:G0T0195 

182 IFSa>=lTHEN177 

183 8<3>=-l:G0T0195 
187 S<7>=-l:G0T0195 

189 S<9>=-1 

190 REM 

195 PRINTCHR*(144); :PRINT"«DER COMPUTER GEHT HPCH.,." 

196 PRINT" 

197 PRINT" ":PRINT".T1 

II 

202 GOSUB1000 

205 GOTO500 

450 IFG=1THEN465 

455 IFJ=7flNBK=3THEN465 

460 NEXTK..J 

465 IFS<5>=0THEN171 

467 GOTO 175 

475 P$="X":Q*="0" 

500 PRINT :PRINT"»10 WILLST DU HIN? IIIUIIH" 

581 GETC*:IFC$=""THEN501 

502 M=VftL<C$> 

505 F0RX=1T02: PRINT" 
•NEXTX-PRINT'Tn" 

506 IFM=0THENPRINT"DflS WAR KLUG! DflNKE FUERS SPIEL " : GG 
TO2001 

507 IFM>9THEN509 

508 IFS<M>=0THEN510 

509 PRINT'TIESES FELB 1ST EELEGT" :PRINT'PRINT-GOTO5O0 

510 G=1 : S<M>=1 
520 GOSUB1000 
530 GOTO 100 
1000 GOSUB3800 
1095 F0RI=1T07STEP3 
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1108 IFS<IK>S<I+1)THENU15 

1105 IFS<I)OS<I+2)THENU15 

1110 IFSa>=-lTHEN1350 

1112 IFS<I)=1THEN1200 

1115 NEXTI:FORI=1TO3:IFS(I>OS(I+3)THEN1150 

1 130 IFS< I >OS( I+6)THEM1 150 

U35 IFSa>=-lTHEN1350 

1137 IFS<I>=1THEN1200 

1150 NEXTI :F0P.I=1T09= IFS(I>=0THEH1155 

1152 NEXT I : GOTO 1400 

1155 IFS<5.K>GTHEN1170 

1 160 IFS( 1 >=GRNBS<9>=GTHEN1 180 

1165 IFS<3>=GRNDS<7>=GTHEN1180 

1170 RETURN 

1130 IFG=-1THEN1350 

1358 PR I NT" 31 CH HRBE GEWONNEN" :GOTO2001 

1400 PRINTERS WAR GUT.DRNKE MR" 

2001 PRINT"HOCH EIN SPIEL?" 

2002 GETC$:IFC*=""THEN2002 

2003 IF«ID*(C*, 1 , 1 >="J"THENCLR : G0T02 

2004 END 

3000 F0R!=1T09 

3005 PRINTS" : IFK4THENRB=2 : G0T03848 

3010 IFI>6THENRB=16GOTO3040 

3020 RB=9 

3840 F0RX=1T0RB+1:PRINT:NEXTX 

3050 I F I = 1 OP. I =40R I =7THEHBR=4 •• GOTO307 1 

3860 I F I =20R I =50R I =8THENBfl= 1 5 : GOTO307 1 

3070 Bfl=26 

3071 IFP*="X"THEN3080 

3072 I FS a > =- 1 THENGOSUB4020 

3073 I FS < I ) = 1 THEHGOSUB5020 
3874 NEXTI : RETURN 

3038 1 FS ( I > =- 1 THENGOSUB5820 

3890 I FS < I > = 1 THENGOSUB4020 

3895 NEXTI : RETURN 

4820 PRINTTRB(BR>"^ ▼ W" 

4850 PRINTTRB<BR>" ^3 W n 

4060 PRINTTRB<Bfl>" IF V 

4070 PRINTTRBCBRV'sr *n$ V 

4080 PRINTTfiB<BR>" 

4090 RETURN 

5028 PRINTTRB<BR>" W V 



5850 PRINTTRB<BR>" $ ! 
5060 PRINTTRB<Bfi>" 3 i 
5070 PRINTTRB(BR>" ^ 
5090 RETURN 
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Luftkrieg (mit Ton) 



Luftkrieg (mit Ton) 

Dieses Spiel kann von zwei Spielern iiber Tasten A und gespielt 
werden. 

Verschiedene Flugkorper uberqueren das Spielfeld in unterschiedlichen 
Hohen. Der AbschuB erfolgt durch rechtzeitigen und gezielten Tasten- 
druck. Der rechte Spieler genieBt einen kleinen Vorteil. Daher sollte 
in bestimmten Abstanden der Platz gewechselt werden. 

Der linke Spieler verwendet zum Abfeuern eines Schusses die A-Taste 
und der rechte Spieler die Null-Taste. Das Spiel ist in BASIC und 
arbeitet daher etwas langsam. Fiihrt man jedoch die Bewegungen und 
die Tonerzeugung in Maschinensprachenprogramme iiber, laBt sich noch 
einiges aus diesem Programm herausholen. 

Ziei des Programmes ist es, dem Anfanger zu demonstrieren, wie er 
seine eigenen Spielprogramme schreiben kann. 



2 REM *** NflCH BUECK/CERJRN/ JENKINS*** 

3 REM *** VONELCOMP MIKROCOMPUTER-*** 

4 REM *** MflGRZIN RBOERENBERT *** 

5 REM *** *#* 
£. REM ******************************** 

8 PRINT"T ; 

9 F0RI=1T039 : PRINT"*" ;:NEKTI: PRINT 

10 PRINT"** O ^FLUGZEUGflESCHIESSEN^ O -> *'• 
1 i FOR I = 1 T039 : PR I NT " * " ; : NEKT I : PR I NT 

12 PRINT: PRINT: PRINT 

13 POKE 53281 .. 1 ■■P0KE53288.. 2 

14 PRINTCHR$a44> 

15 PRINT"4 ZIELE VER.SCHIEDENEV2IELE KOENNEN ZU" 

16 PRINT"VERSCH.ZEITEN IN VERSCH.HOEHEN ER-" 

17 PRINT-SCHEINEN.JE NftCH HOEHE FEUERH DIE" 
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18 PRINT :PRINT"KflNONEN UNTERSCHIEDLICH SCHNELL. " 

20 PRINT:PRINT"SPIELER-BRUECKT fl UM DIE LINKE KflNONE" 

25 PRINT"ZU FEUERN.DER 2, SPIELER DRUECKT FUER" 

26 PRINT :PRINT"DIE RECHTE KP.NONE.WER 21 HflT GEWINNTJ i»:pp 
INT 

30 PRINT :PRINT"BELIEBIOE TflSTEN DRUECKEN!" 
35 GET2*:IFZ**""G0T035 

90 PR I NT "3" ; TflB<KO ; "ELCOMP <R> UJFTKRI I EG" = PRINT : A8=8 : BS 
=9 s 

91 FORI=1TO20: PRINT =NEXTI ^ 

92 PRINT" fl=FEUER !";TRB<23>;"I 0=FEUEP" 

93 PR I NTTflB < 1 4 > .; : ' —' .: TAB < 24 ) ; " ™' 
95 PRINT'S" 2 "ff 

100 X=INT<RNB<n*10>+3:S=0 

105 X3=1064+X*40 

110 FORI = 1 TDK : PR I NT "W :< ■ NEXT I 

115 X1=INT<RND<1)*4)+1 

120 ON XI GOSUB 200. 300.. 400. 460, 460 

125 PR I NT "S" 

130 GOTO 100 

200 F0RI=1T035 



201 


: IFS»1GOTO230 


205 


: print- am mm«M"; 


210 


: print" — a yammer r-E*4 


211 


■ IFP,*="fl ,, GOTO220 


212 


: IFB*="0"GOTO220 


213 


T=TI 


215 


IFTI-K16-KG0T0215 


220 


PRINT" Ml T.-X3=X3+1 


225 


GOSUB300 


230 * 


EXT I 


240 F 


>RINT" IIIIIW 


250 F 


>ETURN 


300 F 


"0RI-1T035 


301 


IFS=1GOTO330 


305 


PRINT" am—MMM" J 


310 


PR I NT " — nHim" ; : E=4 


311 


IFfl$="fl"GOTO320 


312 • 


IFB*="0"GOTO32ft 


313 • 


T=TI 


315 : 


IFTI-K15-XG0T0315 


320 : 


PRINT" n\ T;=X3=X3+1 


325 : 


GOSUBS00 
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330 NEXT I 

340 PRINT" IllilW 

350 RETURN 

400 F0RI=1T035 

401 :■ IFS=1GOT0430 

405 : PRINT" SPB—HHBM"; 

410 : PRINT"? IMnn";-E=4 

411 : IFfl*="fl ,, GOTO420 

412 : IFB*="0"GOTO420 

413 : T=TI 

415 '• IFTI-T<15-XG0T0415 

420 : PRINT" ?ll T;:X3«X3+1 

425 = GOSUB800 

430 NEXTI 

440 PRINT" llHIIfW 

450 RETURN 

460 F0RI=1TG35 

461 = IFS=1GOTO490 
465 = PR I NT "M"; 

470 = PRINT"->lin";:E=2 

471 = IFR$="P,"G0T0488 

472 : IFB$="0"GOTO480 

473 : T=TI 

475 : IFTI-K5-XG0T0475 
480 : PRINT" Jfil TrX3=X3+l 
485 • GOSUB300 
490 NEXTI 

495 PRINT" 111110(1 

496 RETURN 

600 IF2$="fl"THENfl$="R" 
618 !FZ*="0"THENB*="0" 
620 RETURN 

700 REM FIRING ROUTINE 

701 P=INT<RNIK1>*3>+! 

702 F0RB=1T0P 
705 
706 
707 
708 
709 
710 



IFP*C"P"GOTO720 

IFV=0GOTG708 

POKE 191 9- V, 32 

POKE1879-V,43'V=V+40 

I F 1 9 1 9- V-X3>EG0T07 1 5 

IF1919-V~X3>*0 GOTG908 
715 IFV>760 THEN fl*="" :POKEi919-V,32:V=0 
718 NEXTB 

720 P=INT<RNIK1>*3>+1 
722 F0RB=1TQP 
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723 
735 
740 
759 
752 
753 



IFB*O"0"GOTO760 

IFZ=0GOTO750 

P0KE1929-Z..32 

POKE 1 889-2 .- 43 : Z=Z+40 

I F 1 929~2-X3>EG0T0755 

IF1929-Z-X3>=0 GOTO950 

IFZ>768 THEN B*="" •POK.E1929-Z..32:Z=0 

759 NEXTB 

760 RETURN 

800 IFfl*="fl"THEN GOSUB7O0 

805 IFB$="0"THEN GOSUB700 

8 1 GETZ$ = I FZ*= " " THENRETURN 

820 IPZ$="fl"THENfl*="fl" : GOSUB7000 : RETURN 

830 IFZ*="0"THENB*="0" = OOSUB7880 : RETURN 

840 RETURN 

900 REM TARGET HIT 

910 PR I NT " *****SMIMI*****IIWin" .; = GOSUB70O5 

920 fl*=" 1 " • RS=RS+ 1 : V=0 : S= 1 = GOSUB 7000 

921 PRINT" ttllll! "; 

925 PRINT" W" :PRINTTflB<9);"TREFFER=";flS 

930 IFflS=21THEN N=9:GOTO10O0 

940 RETURN 

950 PRINT"*****aMMW!****IMMn": :GOSUB7085 

960 B*=" 1 " : BS=BS+1 : Z=0 : S=l : GOSUB7000 

961 PRINT" MHHIsf "; 

965 PR I NT " 3" : PR I NTTflB (-24 ) .; " TREFFER= " ; BS 

978 IFBS=21THEN N=24 : GOTO 1000 

975 RETURN 

100O PRINT"SW"; 

1805 FORI=1TO10 

1010 : PRINTTRB(N); "SIEGER"; :T9=TI 

1015 : IFTI-T9<50GOTO1015 

1816 = PRINTTPB<H?.;"IMiMiaSIEGERBIHfi!".; 

1028 NEXT I 

1025 PRINT 

1030 G0T098 

7000 V=54296 : 0=54276 : 8=54277 = H=54273 : L=54272 

7001 FOR !*!=15 TO STEP- 1 : POKEV ■ M : POKEO.. 129: POKER ..15 :POKE 
H..40 : POKEL..280 : NEXT 

7082 POKEO..0: POKE fi,8 

7003 RETURN 

7005 P0KE59467 .16: P0KE59466 .. 1 5 : P0KE59464 .. 280 : T9=T I 

7810 IFTI-T9<:30GOTO7010 

7815 RETURN 
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Reversa 



Reversa 

Dieses Spiel kennen sicher viele von (hnen. Auf einem Brett werden 
Steine so plaziert, daB sie die Stiicke des Gegners ftankieren. 

Vertikal: •oooooo« 

Horizontal: • 

o 
o 
o 
o 
o 
o 
• 

Diagonal: 



o 
o 



o 



o 



• 



Die Steine miissen in einer Fluent liegen! Die eingeschlossenen Stiicke 
des Gegners konnen dann "gedreht" werden und zu eigenen Steinen 
gemacht werden. Wer am Ende des Spieles die meisten Steine besitzt, 
hatgewonnen. 



110 DN*="i 
1 20 FOR I = 1 f 039 : E**E*+ " " : NEXT 
1 30 FOR I = 1 T039 = E$=E*+ " SB" : NEXT 
140 Hfl$="flOSEROH" 
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L45 P0KE53281 , 1 ■■ POKE53280, 5 
147 PRINTCHR*<144> 

iso R$~''ii|iiiilliiftiiwiiiiii|||itiiiiiDieiiiiiiii»nipMiiii»iiiM>3^ 

L 60 B I MR (. 9 , 9 > , 1 4 < S > , J4 >■. 8 ) , D* (. 2 > 

170 PRINT'TJGRUESSE VON "Nfl* 

LS0 PRINT"WBRRUCHEN SIE RNWEISUNGEN" : 

[90 INPUT X$ v 

200 I F LEFTS- (. X* , 1 > = " N " THEN480 

210 PRINT'TT'NFI*" GESP.WIRD RUF EINEM 8 X 8 BRETT," 

220 PR I NT "RE I HE 3119 BIS S£S UND SPflLTE SFS BIS 2HS 

1 

230 PR I NT "AM RNFRNG 1ST RLLES OFFFN.NMR IN BER" 
248 PRINT"MITTE LIEGEN VIER STEIHE. VERS! ICHFN" 
250 PR INT "SIE IHREN STEIN SO ZU LEGEN, EflSS EP ;: 
260 PR I NT " ME I NE STE I NE FLANK I ERT . HOR I ZONTflL , " 
270 PR I NT "VERT I KRL ODER DIAGONAL. BIS ZUN ENLE. " 
280 PRINT "SIE WERDEH IHRE STEINE,WENN 

290 PRINT" !■ 1 1 1 1 » 

JO© PRINT" I I o I I n I •" 

SI© PRINT" 1 H 1 1 1 " 

S20 PRINT "SIE WIE HIER IM BE I SPIEL DIE " 
130 PR I NT "STE I NE VON WEISS UMDREHEN. " 

!40 i ~t i : j= i : pr i nt " mmm&iwivmmr :• 

150 I F < T I - 1 > > 1 200THEN390 
160 I FJ- 1 THENPR I NT " ttlO" .; : GOTQ3R0 
170 PRINT" II"; 

180 J=- 1 * J : FORK* 1 TO 1 50 : NEXT : GOTO350 
190 PRINT"i5aWB!lSD!!ll!MS:i!!lB!»il«J W I « I i | m | tWUBQ" 
■00 PRINT"DURCH EINGflBE EINER ZflHL FUER DIE" 
10 PR I NT "RE I HE UND EIN BUCHSTRBE FUER DIE SPRLTE. 



•20 PRIN'T'flCHTUNG! ES MUSS MINDESTENS 1 STEIN " *' 

30 PRINT"GEDREHT WERDE.WENN DIES NICHT MOEGLICH*- 

40 PRINT" 1ST, MUSS GEPRSST WERDEN, INDEM SIE" 

50 PR I NT "FUER DIE REIHENEINGRBE EINFflCHSBi SRS EI 

I" 

60 PRINT"GEBEN. " 

70 F2=0 

80 PRINT"SOLL ICH MICH RNSTRENGEN" ; 

90 S2-0 

00 INPUTX* 

1 I FLEFTf < X$ , 1 > = " N " THEN530 
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528 82=2 
53@ B«-l = W*1 
540 L*<CB+1) = "0" 
550 D$<0+1>»" " 
560 D*CW+1 > = *'#" 
570 F0RK=1T08 
580 READ 1 4 (K).. J4u<) 
590 NEXT 

609 FOP.I= :: 0T89 : FOR.J"-0TOS 

610 fl(LJ)=e 
620 NEXTJ., I 
630 RC4ji4>=W 
640 fic:5,5::'=W 
650 FK4.. 5>=E 
66® R''5.. 4>=B 

670 CI =2 : HI ~C1 :N1=4:Z=© 

680 PRINT'SCHWfiRZ ODER WEISS BUTE" 

690 C*W=H=B 

780 INPUTX* 

7 1 I FLEFT* ( X$ >■ 1 > : == " !■••! " THEH730 

720 C=E:H=W 

730 PRIHTWOLLEH SIE RNFRNGEN"; 

740 INPUTX* 

750 PRINT'S"; 

760 GOSUB2160 

770 IFLEFT$<X$, 1)=" J "THEN 1 140 

780 PRINTDN*;E$"ICH DEHKE HFlCH i " 

790 E 1 =- 1 ■■ 1 3=9 : J3=0 ; T 1 =C : T2=H 

808 F0RI=1T0S : F0RJ=1T08 

810 IF FKI, J)O0THEN950 

820 GOSUB1830 

830 IFF1=0THEN950 

858 GOSUB1910 

868 IFS1=0THEN950 

878 I F < I - 1 ) * \ I -8 > OSTHEN890 

886 S1=S1+S2 

890 I F < J- 1 '> # < J-8 ) O0THEH9 1 8 

980 31=81+32 

910 IFSKB1THEN950 

928 IFS1>B1THEN940 

930 I FRHIJ < 1 ':> >8 . 5THEN958 

940 Bl=31 = 13=1 = J3*J 
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95© NEXT J, I 

966 IFB1>0THEN1010 

970 PRINTDN$"M"E*"ICH MUSS PFiSSE UHD WEITFR" 

9S0 IFZ=1THEN1490 " " ' 

930 Z=l 

1000 GOTO 1140 

1010 Z=0 

1 020 PR I HTDH* " W E$ " I Ci-i GEHE NflCH 23" R I ni-!Tt < '~;TR* ■' I ~: 

>.. l)"i a"CHR*<J3+S4) 

1030 GOSUE2440 

1040 1=13: J=J3:U=1 

1050 GOSUE1910 

1060 Cl=Cl+Si+l 

1070 H1=H1-Si 

10S0 H1=N1+1 

1090 PRINTDN*"WS ,, E#"inH •REKnMMF " ; 

1100 PR I NTS l; 

Ill© PRINT" VON IHREN STUECKEN" 

1120 GOSUB2160 

1 1 30 I FH 1 =0ORN 1 =64THEN 1 49i~; 

1140 T1=H=T2=C 

1 1 50 PR I NTDN* .: E* " S I E. S I ND DRRN — SRE 1 1 SSPRS " .; 

1160 G0SUB2320 
1170 IFIO0THEN124O 

1130 PRINTDN*;E*"WOLLEN SIE FflSREN MNP |.'FITE* ;i ; 
1190 IHPUTX* " - ' '- • 

1 280 I FLEFT* < K* , 1 > O " V " THEM 1 ] 5fi 

1210 IFZ=1THEN149Q 

1220 Z=l 

L230 GOTO7S0 

L240 IF fla,J)=0THEN127i"i 

L 250 PR I NTDN* " W E* '; LE I HER W I EDER BESETZT .; NOCHMFlL I ! 

260 GOTO 1350 

270 GOSUB1330 

280 IFF1=1THEN1310 

£30 PRINTDN*"M"E*"NEIH,HICHT DIRECT NEBEN MEINE S 

30O GOTO 1350 

310 U---1 

320 GOSUB1910 

330 IFS1>0THEN1370 
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176© PRINT"RENNER ! " 

1770 PRINT 

1730 PRINT"WOLLEN SIE NOCH EIHMflL SPIELEN !: .; 

1790 INPUTX* 

1 800 I FLEFT* <. X* > 1 > = " J ; ' THEN60S 

1810 PRIW'DfiNKE FUERS SPIEL." 

1820 STOP 

F1=0 

F0RI1=~1T01 

F0RJ1=~1T01 

I Ffl U + 1 1 , J+ J 1 > =T2THEN 1 890 

NEXTJ1, II 

RETURN 

Fl = l 

RETURN 

31=0 

F0RK=1T08 

I5=I4<iO 

J5=J4<K> 

16=1+15 

J6=J+J5 

33=0 

I Ffl a 6 .■ J6 > OT2THEN2 1 40 

S3=S3+ 1 

16=16+15 

J6=J6+J5 

I Ffl a 6 .. J6 ) =T 1 THEN2050 

I Ffl ( 1 6 .. J€ ':> =0 THEN2 1 40 

GOTO 1990 

S1=S1+S3 
2060 IFUO-1THEN2140 
2070 16=1 
2080 J6=J 
2090 FORK1=0TOS3 
2100 FKI6, J6>=T1 
2110 16=16+15 
2120 J6=J6+J5 
2130 NEXTK1 
2140 NEXTK 
2150 RETURN 

2 1 60 PR I NT " S3" TAB (9)" " ; : FOR I = 1 TOLEN < Hfl* > : PR 1 1--ITM I D 
*<Nfl*, I.- 1>" "i = NEXT 1 - PR I NT 
217© PR I NT "M fl B C D E F G H " 

I! 
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218Q PRINT" r r 

21S'8 FOR I = 1108 

220© PR I NT I" I ! '; 

221© F0RJ=1T08 

2220 PRINTD*<aa, J) + i: 

2230 NEXTJ 

2240 PRINT 

2250 I F I OSTHENPR I NT " 

! I 



2 2 7 P R I N T ' ' '■ '— '-■ - - J '' — 

2280 RETURN 

2220 END 

2300 REN EINGflEE UNTERPROGRflilM 

2 3 1 P R I !-■! "I" D N ■$"WE.$'T Fi L 8 C H .; N C H M H L 

2320 I~~ 1 : J~ 1 ; !<=i 

2333 GETN* : I FX*<> " " THEN28PS 

2340 I FK= 1 THENPR I NT " MV ; ■ GGT02368 



2368 K= l*i< 

2 3 7 F R L -~ 1 T 2 8 : N E X "!" 

2380 GO TO 2 338 

2330 G"~fi8G<N$> 

2400 I F47<GfiNBG<58THEN I =G 48 • PR I NT : 

2418 I F 6 4 ■■■. i j R !"•; 'D G < 7 4 T H E r-l J : ~ G 6 4 ; P R I N T ' 

2420 I F I <>- 1 RNDJO 1 f HENRETURN 

2438 G8T82338 

2448 REM BLINKEN COMPUTER SETZT 

2456 PR I HTLEFT$ < BN* , 2* < 1 3 1 > +5 ) .: L...EF 



T-.t. 



"if! 



it- .' 



246 8 K = 1 ; M = 8 ; X * : = B $ < 8 + 1 > 

2470 I FK= 1 THENPR I NTN* ,! Si ,! 

2488 PRINT" li :! ; 

2430 K=-1*K 

2588 F0RL= 1 T8288 ; NEXT 

25 1 8 1 FM>8THENRETURN 

2528 M = M + 1 ; G 3 T 8 2 4 7 8 

2538 Dfl'T'fl 8 , i , - 1 .. 1 .. -••• 1 .. 8 , 



GOT 02490 



i/i . •! 
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Ballspiel 



Ballspiel 

Dies ist das bekannte Ballspiel, welches Sie auch von den Spielhollen 
her kennen. Sie konnen es mit Ton und Farbe noch erheblich selbst 
erweitern und verschonern. Ein relativ kurzes Programm, welches doch 
viel leistet. 

P0KE5328 1,?: POKE53280 , 3 : PR I NTCHR$ < 1 44 > 

5 SOB : BL=9 : PP= 1 7 : S= 1 924 : PM=8 

6 fl*«" I" :B*»"I " 
19 PRINT'TMBW" 

11 FOR 1 = 1 TO 6 : C$=M.ID*<" m ",1,1':' 

12 PRINT" ";:IF I<3 OR I>4 THEN PRINT" 3"; 
15 FOR N=l TO 32 "PR INTO*; : NEXT N 

17 PRINT"" ":NEXT I 

45 PR I NT "S3".; 

46 PRINT" 

48 FOR N=1T0 23' 

49 PRINT fl*;:PR!NT TRB<34>;B* 

50 NEXT N 

70 COSUB 451= GOSUB 236 : GOTO 145 

100 REM HAUPTROUTJ.NE 

101 GOSUB 200 : REN PADDLE BEUEGUNG 

103 BP=BP+BB 

104 IF BP>2023 GOTO 135 
107 PK>PEEK'::BP> 

109 IF PK=32 OR PK--96 THEN 115 

112 GOSUB 300: REN BALL flBPRALL 

113 IF PEEK<BPX>32 GOTO 103 
115 POKE BO, 32 

121 POKE BP,3i:POKE<BP-1024:i+55296,2 

122 BO=BP 

125 GOSUB 200 ■• REN BEWEGUNG PflBBLE 
130 GOTO 100 
135 BL-BL-1 
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137 
138 
148 
141 
142 
143 
145 
159 
155 

200 

205 

21© 

220 

225 

230 

236 

240 

300 

320 

GOTO 

334 

335 

336 

339 

376 

377 

378 

380 

405 

410 

430 

450 

451 

452 

455 

500 

809 

802 
803 
305 
3©6 
807 
810 



GOSUB 451 

POKE BO, 32 

IF BL<=0 GOTO 800 

T I M$=" 000000" 

GOSUB280 

IF TK100 GOTO 142 

BP= 1 426+2* I NT (. 1 0*RND <1 > + 1 ) +BL-2* I NT < BL/2 ) : BO=BP 

BD-39+2* I NT < RND < 1 > + . 5 > 

GOTO 100 

GET D: IF B-0 THEN 218 

PM=B-2 : IF flBS<PM)>l THEN PM=0 : RETURN 

IF PEEK. < 5 15 > =255 THEN PM=@ = RETURN 

PP-PP+PM 

IF PP<=Q THEN PP=0 

IF PP>=30 THEN PP=38 

PRINTTflB<PP>;" I 1 ";"T' 

RETURN 
Qf 'BQr+ 1 

IF PK«=113 OR PK=117 THEN GOSUB 500 = BD=~BB : 
458 

IF Pl<=79 THEN BD— 41= GOTO 459 
IF PK=99 THEN BB=BB-80 = GOTO 450 
IF PK=38 THEN BD»-39 : GOTO 450 
REM 

IF PK=160 GOTO405 
SOSC+10 

IF PK-102 GOTO 405 
GOSUB 500 •GOTO 450 
SOSC+10 
GOSUB 500 
POKE BP,32 
BP=BO 
PR I NT " JWMiFUNKT" " ; SC ; TRB (. 20 > . 

pr i NT "'m^mmmmsmmsmmj^^^" 

RETURN 

BB=SGN < BD ) '* < PBS < BD ) ~3© ) ■ RETURN 

FOR 1=1 TO 15: GET fl$ : NEXT 

pr i nt " mmmmmsmim" ; tab a 2 > . 



'BALL RESTE«";BL 



'NOCHEINMRL?' 



GET V*: IF V$="" THEN 883 

IF LEFT*<V*,1>»"J" GOTO 5 

PR I NT : PR I NTTfiB (19) ; " DflNKE FUER3 SP I EL ' 

PR I NTTflB < 10);" KOMM BPLB W I EBER " 

END" 
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Hangman 



Hangman 

Dies ist ein bekanntes Worterratespiel. Ihr bester Freund wurde ge- 
fangen und muB an den Galgen, wenn er keinen findet, der ihm mit 
Klugheit aus dieser Situation hilft . 

Um den Freund zu retten, muB ein geheimes Wort erraten werden. 
Dabei konnen Sie nach bestimmten Sachgebieten wahlen. 

Der Computer hilft Ihnen dabei, indem er die geratenen Buchstaben 
einsetzt, oder als falsch unten notiert. 

100 REM ***** HANGMAN ***** 
110 REM BV **** ELCOMP **** 
115 POKE53281,1:POKE53280,2 
130 PRINT-rMSr 

140 PRINT" ! — V 

150 PRINT" IHflHGMflN! I" 

160 PRINT" I I" 

170 INPUT'MflMWBRflUCHST DU EINE RULE I TUNG ",Q* 
180 IF LEFT*<Q*,1>="N" GOTO 390 

190 PRINT'TIHWSDEIN BESTER FREUND WURDE GEFRNGEN UND" 
200 PRINT"WEOEN BRflNDSTIFTUNG.. BEWRFFNETEN RAUBES" 
210 PRINT"UND TRUNKENHEIT RM STEUER VERURTEILT. " 
228 PRINT"ER MUSS PN DEN GRLGEN, WENN ER KEINEN" 
230 PRINT'TREUND FINDET, DER IHM MIT KLUG-" 
240 PRINT"HEIT PUS DIESER SITUATION HERRUSHILFT." 
250 PRINT"ER KOMMT FREI, WENN SEIN FREUND DIE GE-" 
260 PRINT'TRRGTEN WORTE INNERHALB DER RNGEGEBENEN" 
270 PRINT ,! SCHRITTE FINDET, WER WIRD IHM HELFEN?" 
280 PRINT"UM DEINEN FREUND ZU RETTEN, MUSST DU" 
290 PR I NT "EIN GEHEIMES WORT <0DER WORTERATENV 
300 PRINT"IMMER NUR EIN BUCHSTPBE ZUR OLE I CHEN" 
310 PRINT"ZEIT, ICH HELFE DIR DPBEI, INDEM ICH DIE" 
320 PRINT"GERPTENEN BUCHSTRBEN EIWSETZE ODER" 
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330 PRINT"RLS FflLSCH UNTEN NOTIERE.WENN BUM! ! " 

340 PRIW'EINEN BUCHSTRBEN RICHTIG GERRTEN HPST," 

350 PRINT"KRNNST DU BRS WORT RUF EINMflL RRTEN, " 

360 PR I NT "RUF GEHTS!!! 

370 PR I NT " W9P. $ 3 I RGENB E I NE TRSTE BRUECKEN .3 $. ? " 

380 GET Q$:IFQ$="" GOTO 388 

390 iHPUT ,! l«WWa!WIE 1ST BE IN V0RNfiME";NM*:NM*»LEFT*<NM*,9) 

400 DIM HM$(3>,TD$(6.'4>..PRt<17> 

410 FOR 1=1 TO 3:RERB HM*<I>=NEXT 

420 FOR 1=1 TO 6- FOR J=l TO 4 

430 READ TD*<LJ>: NEXT: NEXT 

440 R$="lffllHI":B$=":«MHilMlMil" 

450 PRINT'TSfWREHLE EINEN BIESER BEREICHE ZUf1 RflTEhPMT 

460 CT*< 1>= "COMPUTER" :CT*<2)= "'SPORT" 

470 CT* < 3 > = " AUTO " : CT* < 4 > = " LRENBER " 

480 CT*<5:>="RLLERLEi" 

490 FOR fi=i TO 5 : PRINTfl.;"I!„ " ;CT$<R) :NEXT 

500 PR I NT "MM BEINE WflHL, "+NM*; 

510 INPUT C 

520 IF C<1 OR C>5 OR COINT(RBS(C>) GOTO 450 

530 PR I NT "MICH BENKE MIR EIH WORT..." 

540 TT=TI 

558 FOR 1=0 TO <C-1)*20+INT<RND<1>*20> 

560 RERB WB* : NEXT 

578 IF TI-TK128 GOTO 578 

580 LM$="":PR$=" i| :LG*="" 

590 FQRI=1 TQ LEN<WB*> 

600 IF MIB*<WB$.. I.. 1>=" " THEN PR$<I>=" ":PR*=PR$+" ":ROTO 

628 
618 PR$<I>="-" : PRS : =PR$ : +"-" 
628 NEXT I 
638 VP=17:HP=0:M=8 
642 PR I NT "T; 

658 FOR 1=1 TO 16 : PRINT"*!" .:: NEXT 
668 FOR 1=1 TO 8 = PR I NT : PR I NTHM* < I ) ; : NEXT 
670 FOR 1=1 TO 7 

680 PR I NT " 3 H! TH" ; : NEXT : PR I NT " 1" ; 

698 PRINT" S Til ! 3 i" 

788 PRINT"S" ; TRB<34) 1 " Sb Mil S WW! ,- *lii ^THfe* " ■ 

718 FOR 1=1 TO 23 ; PRINT"IW Hff'.i.-NEXT 

728 PRINT "IM i"; 

738 POKE 2822 .- 96 : PR I NT "3" 

748 FOR 1=1 TO 19 : PR I NT "M"; :NEXT 
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750 PRIHTSPC( 16) ; "FPLSCH : " 

768 PR I NTTflB < 23 > : " """ 

770 PRINT"aMMMS".;PR$ 

780 FOR 1 = 1 TO 15 : PRINT" 18" .;: NEXT 

800 INPIJTSWSSKSMl BUCHSTflBE llllllllll"G$ 

810 IF MIB$<G$..2,1>=" " GOTO 388 

820 PRIHT"TTn" 

830 FOR 1=1 TO 20 

840 IF I/2*INT<I/2)THEN PRINT" a": 

850 PRINT"NUR 1 BUCHSTflBE.. ".:HM*;"T 

360 FOR J=l TO 50: NEXT 

870 NEXT I: GOTO 880 

880 G*=LEFT*<G*..!> 

890 IF G$>="fl" 8ND G*<="Z" GOTO 958 

900 PRINT"Tm" : FOR 1=1 TO 28 

910 IF I/2=INT<I/2>THEN PRINT" ST.; 

920 PRINTEIH BUCHSTflBE !! T 

930 FOR J=l TO 50: NEXT 

940 NEXT I: GOTO 808 

958 FOR 1=1 TO LEWLG*> 

950 IF G*=H!D*<LG*.. M> GOTO 988 

97^ NEXT I: GOTO 1040 

988 PRINT'"TT7T 

990 FOR 1=1 TO 20 

1000 IF I/'2=INT<I/'2) THEN PRINTS"; 

1010 PRINTSCHON GERRTENIT 

1028 FOR J=l TO 50: NEXT 

1038 NEXT I: GOTO 388 

1040 PRTNT"TJ " 

1050 F=0 

1068 FOR 1 = 1 TO LEW WD* > 

1070 IF G*=WID*<WD*,M) THEN PR*<I)=6t : F*=l 

1038 NEXT I 

1898 IF F=0 GOTO 1548 

1188 LGf=LG*+G* 

1118 PR*= M " 

1120 FOR 1=1 TO LEW WD*) 

1130 PR*=PR*+PRS<I> 

1140 NEXT I 

1158 PRINT"aWlfflW":PR* 

1160 PRINT" T 

1170 FOR 1=1 TO 28 

1188 IF I/'2=INT<I/2) THEN PR I NT "ST; 
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1608 LG*=LO*+G*:LM$=LM*+G* 

1610 PRINT"3":F0R 1=1 TO 21 :PRINT"M".: =NEXT 

1620 PR!NT"TlMiM«ll»m»m»»l|»tM" ■ LP* 

1630 M=M+1 

1640 IF 1*1=9 GOTO I860 

1650 FOR 1=1 TO 2 :VP=VP- SPRINT".*".; 

1660 FOR J=2 TO VP:PRIW"M".; :NEXT 

1670 IF VP=1 THEN PRINT'"?'; 

1 680 PR I NTSPC ( HP+ 1 H " I!" ; 

1690 FOR J=l TO 8 

1 700 PR I NT " 1" +HM* < J ) + •' Hlfl" .; 

1710 NEXT J:PRTNT"W ".-NEXT I 

1720 FOR 1=1 TO 4:HP=HP+l:PRINT»B"; 

1730 FOR J=2 TO VP: PRINT"*!"; ;NEXT 

1740 IF VP=1 thenprint j, t; 

1750 PR I NTSPC ( HP >+» ||»; 

1760 FOR J=l TO 8 

1770 PRINT"*! "+HM*(J)+"IMMI"; 

1780 NEXT J 

1790 NEXT I 

1800 IF (1<8 GOTO 800 

1810 PRINT"S";SPC<HP>; 

1828 FOR 1=1 TO 8 

1830 PRINT"M "+HM*a>+"IMMW"; 

1848 NEXT I 

1858 GOTO800 

i860 PRim"mm*wmexi":.TW.34>:. 

1870 FOR 1=1 TO 6 

1880 FOR J=l TO 4 

1898 PRINTTD*a..J>+fl$.; 

1900 NEXT J 

1910 PRINT M Tm"; 

1928 NEXT I 

1938 PRINT"M8W";SPC<34>: 

1940 FORI=l TO 16 

1950 PRINT"** I "; 

1968 FOR J=3 TO 8 

1978 PRINT fl*+HM$<J>; 

1988 NEXT J 

1990 PRINT"TrnTWMr: 

2000 NEXT I 

2010 FOR 1=1 TO 1000: NEXT 

2020 PR I NT "T; 
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2638 PRINT" ar ^"+R$; 

2940 PRINT" 3 R l"+fi*.; 

2050 PRINT" SI I+r+fl*.: 

2060 PRINT" SIP! !"+R$; 

2070 PRINT"! SI !H"+R*;; 

2080 PRINT" IS) S "+fl*J 

2090 PRINT" IS! S "+fl$; 

2100 PRINT" IS ■ ".; 

2210 FOR 1=1 TO 3000: NEXT 

2120 PRINT"3*WWWM^RS GEHEIME WORT WAR:" 

2130 PRINT"»iWWI»»ilia"+lJD* 

2140 PRINr'SIBWWIEL GLUECK NflECHSTES MRU ".:NM*; "> M" 

21M- PRINT "JWWWILLST DU EINEN RNDEREN FREUND PETTPNO" 

2160 GOTO 2170 

2170 INPUT Q$:IF LEFT*(Q$,1>="N" THEN PRINT'-MWDRNKE FUER' 

S SPIEL! !"-GOTO 2350 

2180 RESTORE 

2190 FOR 1=1 TO 32 ••READ WD* = NEXT 

2200 GOTO 450 

2210 DRTR" ,-s " 

2220 DRTR" ^ » 

2230 DflTfl"8r V 

2240 DRTR" SI li" 

2250 DRTR"S I ! ■" 

2260 DRTR" S I ■ " 

2270 DRTR" 3J \ I " 

2280 DRTR" ■* I !■ N 

2290 DRTR "--__" 

2300 DRTR" " 

2310 DRTR" 

2320 DRTR" 

2330 DRTR" - " " 

2340 DRTR" ~ " 

2350 DRTR" - " 

2360 DRTR" ~" 

2370 DRTR"\ " 

2380 DRTR" \ " 

2390 DRTR" \ " 

2400 DRTR" 

2410 DRTR"! 

2420 DRTR" ! " 

2438 DRTR" I " 

2440 DRTR" ! " 
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2450 DATA"! 

2460 DATA" I 

2470 DATA" I " 

2480 DATA" ! " 

2490 DATA"! 

2590 DATA"! 

2510 DATA"! 

2520 DATA"! 

2530 DATA CPU , ELCOMP , RAM , D I SK , BVTE , DRUNKER 

2540 DATA "DAT A "..TERM I HAL, DISC 

2550 DATA ROM ,CHIP,TASTEN 

2560 DATA INPUT, MODEM, RS232 

2570 DATA SUBROUTINE, PLOTTER 

2589 DATA SUBSCRIPT, BUS, PERIPHERIE 

2590 DATA TRACTOR 

2680 DATA MA1ER,FUSSBALL, BASKETBALL 
2610 DATA STABION,RUGBV,TOR,SKI 
2620 DATA POLO, VOLLEVBALL 
2630 DATA ADIDAS, LAUF..SCHACH 

2649 DATA SPRUNG, SCHW I MMEN 

2650 DATA AUTORENNEN,PFERD,REITEN 
2660 DATA WANDERN,BERGSTEIGEN 
2670 DATA RADSPORT 

2680 DATA PORSCHE, VOLVO, VOLKSWAGEN 

2690 DATA D A I MLER , BMW , LOTUS , TR I IJMPH 

2700 DATA FIAT, ROLLSROVCE,VW, OPEL 

27 10 DATA KADETT , SUBARU, FORD , CAPR I 

2720 DATA BUGGV, HONDA , MAZDA 

2730 DATA BORGWARB, FERRARI 

2740 DATA UBS8R,AMERIKA,FRAWKREICH,SPAN!EN 

2750 DATA BRVERN , DEUTSCHLAND , RUSSLAHD , I T AL I EH 

2760 DATA GRIECHENLAND,AEGVPTEN, RHODES I EN, CHILE 

2770 DATA S I NGAPORE , JAPAN , I ND I EN , K ANADA* 

2730 DATA DDR , UGANDA , VUGOSL A V I EN , HONGKONG 

2790 DATA PIZZA, ELCOMP, BROTZE IT 

2800 BP T A T ALK , ELCOMP , MAHOGANV , TH T NG 

2810 DATA BROT..FAiJL;AUGE.RAND 

2820 DATA BORF,KRUG,BIEST,MANBEL,MAI 

2830 DATA SENDER , BE I SP I EL , KOEN I G 

2840 DATA SPHVNX 

2350 END 
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Schiessbude 



Schiessbude 

Dies ist ein lustiges AbschieBspiel mit Ton. Links im Bild bewegt sich 
eine AbschuBbasis stand ig von unten nach oben. Rechts baut sich eine 
Mauer mit bis zu drei Lochern auf . 

Ziel ist es, mit dem Ball in die Locher in der Mauer zu treffen. Ein 
Treffer bringt 100 Punkte. Man startet mit 100 Punkten und kann 
5 Spiele mit je 10 SchuK absolvieren. SchieSt man daneben, werden 
10 Punkte abgezogen. Am SchluR werden alle erreichten Punkte aus- 
gegeben. Will man noch eine Runde Spielen, gibt man "Ja" ein. Mit 
"Nein" verlassen Sie das Programm. 

Bitte auch hier unbedingt auf alle Cursorsteuerungen im Listing achten. 
Fehlt nur ein Zeichen, arbeitet das Programm nicht. 

100 REM SCHIESSBUDE 

11© REM 

120 REM ING.W.H0FRCKER 

GMBH P03TFACH437 
136 REM D-8000 MUENCHEN75 

140 REM DIESES PROGRAMM ARBEITET MIT 
150 REM TON UEBER DEN LAUTSPRECHER IN 
160 REM IHREM FERNSEHGERAET ODER IM 
17Q REM MONITOR. 
180 P0KE53281 .■ 1 ; FOKE53280.. 2 
190 REM 
200 CLR 
210 DIM Z<23) 

220 PRINT"3W«B SCHUSS" 

230 PRINT" XWDfDODRUECKE 1 FUER FEUER" 

248 PRINT"MHMWBELIEBIGE TRSTE ZUM START DRUECKEi 
250 GETO$ , -IFO*=""GOTO250 
260 PR I NT "71 

270 fl*<0)«" aomsDfflSi nruB" 
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289 fl*<i)="MH irrnani" 

290 D$<@> = "x" 

305 PRINTCHR$<144) 

319 G*<0) = "S " :G$.:;i;:, = " " 

338 PR I NT "3" 

348 T-T+S 

350 K= i : X= 1 ; S- 1 00 : C~ 1 9 : P=R+ J 

360 R*s=STR$<R) 

370 IFR=5GOTO104@ 

380 FOR I =0TO 22 : PR INT" " -Z < I :> =fl ■ NEXT 

390 FGRI=1T04 

t00 Z < I NT ( RND < 1 > * i 9+2 y ':> * i 

US NEXT 

r2Q PR I NT "SI" 

1-30 F0RI = 1T021 

■40 PR I NTTflB < 37 > i G* < Z ■' I ■> > 

r50 NEXT 

^60 PRINT" SRUNDEH SCOUNTS SPUNKTES" 

•70 PRINT" I ";R*;" I I 10 I I 100 |» 

■80 PRINT" 1." 

•90 PR I NT ".48" 

i@© K=l 

il0 K=RES<K~1>-X=1 

20 1 = 1 

3:0 PRINTfl$<K> 

40 GET R$ 

50 I Ffi$= " 1 " THENGOSUE640 

iS0 IFC=0GGTQ330 

70 1 = 1 + 1 

80 IFI=19GOTG510 

90 GOTG530 

00 V=5429S : 0-54276 : fi=54277 : H-54273 : L=l=i4?7~' 

05 FOR 11=15 TO STEP -1 : POKEV . M : pnKEn . 129 : pi>'PR , 

5 •• POKEH , 40 : POKEL , 200 : NEXT 

10 POKE Q,0:POKEFI,0 

20 RETURN 

40 PR I NT " flUI* " J «- (Cursor nach unten. Cursor rechts, Shift Q) 

50 V=36 

SO I FK=0THENI4= I +2 : GOTO^Sfl 

70 W-20-I 

80 IFZCW>>0THENV=38 
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698 PR I NT "II •";' 

70© X=X+i 

710 IFXOVGOTO690 

720 IFX=3STHEN PRIHT"II >»l" ; : GOSUE680 ■ GOTO 84© 

730 Z(W)=Z(i'iHl 

740 FQRJ=1T04 

750 PF.INT"liaiS H ; 

760 L-54272 ; H-54273 : V=54296 : fl-54277 '• Q-54276 

770 POKEV , 1 5 ; POKEQ * 33 ; POKER , 1 6 

780 FOR n*@ TO i00 : POI<EL,M ; POKEH,M M--IEXT M 

790 PRINT" I*"'; 

800 POKE V , O ■• POKER ..0 

3 1 REM FORM= 1 TO20 •■ NEXT 

820 NEXT 

830 8=3+120 

340 S~S--5*<33 X> 

850 REM P0KE53467.. O 

870 C=C-i 

880 F0RJ=1T023-W 

890 PRINT 

903 NEXT 

910 IFS<0THEMS=@ 

920 S**STR*<S) : C*=STR*CC> 

930 PR I NTTflE < 1 8 ) .i " llll" ; CS ; TAB < 28 > ; R I GHT* < 8$ , 

940 PR I NT "M" 

953 FOR J= 1 TOW : PR I NT " »" ; : NEXT 

S6Q PRINT"IBS".ir^<33-X); 

970 IFXO38OOTO1018 

980 V=54296 : 0=54276 '■ 8=54277 = H=54273 : L-54272 

385 POKE V, 15 -POKE Q, 17 ^ POKE Fl, 15 

998 FOR M=100 TO 5 STEP-2 ; POKEH, 48 = POKE L.N'TNE 

1800 FOR M=75 TO 5 STEP-2 : POKE H, 40 ■ POKEL, N N- 

1018 POKEQ, 8 

1020 x=i : pr i nt "ii aiirrr 

1030 RETURN 

1040 PR I NT "IT 

1850 REM P0KE59467, 16 

1070 PR I NT "MUM" 

1088 F0RJ=1T0S 

1090 PRIHTTflEai>;"## SPIEL 1ST flUS" 

1 1 80 L-54272 : H*54273 ; V=5423S : 0=54277' : Q=54276 

1110 POKEV ,15: POKEQ .< 1? ■ POKER , 4 



E> 
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1129 FOR M=2 TO 130 STEP RNIK1 >*13 : POKEL, M = POKEH, 
NEXT 

1 1 30 PR I NTTflB ( 1 1 ) .: " MSP I EL I ST fillS**"]" 
1140 POKEV.. O^POKE R,0 

1150 REM 

1160 REM 

1170 NEXT 

1180 PRINT: PRINT 

1 1 90 FORH= 1 T039 : PR I NT ,! + " .; : NEXT : PR 1 NT 

1 260 REM P0KE59467 , @ : P0KE59466 , O 

1210 PRINT"3aWS»MIT 46 SCHUSS flUF 4 ZIELE" 

1 220 PR I NT " BD I. E GESRMTPUNKTZRHL I ST " ; T .; " PUHKTE ! " 

1230 REM P0KE594S7, 16 : P0KE59464, 129 

1 240 REM FORH= 1 TO 1 06 = P0KE53466 , RHD '■. 1 '.'•' *255 

1250 REMNEXT 

1260 REM POKE53467,0:POKE59466,@ 

1270 INPUT"NILLST LU NOCH ElNilFlL"; Fl$ 

1286 IF !=l$~ ''Jfl' ! THEN GOTO 100 

1290 PR INT" W« SERVOS" : END 
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Memoversa 



Memoversa 

Dies ist ein einfaches Zahlenratespiel. Eine Anleitung erhalten Sievom 
Programm. 

105 REM #** LOGIKSPIEL 

110 REM **# ING.W.HOFflCKER 

115 REM *** D-8150 HOLZKIRCHEN 

130 DIM FK20) 

140 REM *** N = ZfiHL HER ZP.HLEN 

145 REM *## a DURCH N> 

1 46 P0KE5328 1 , 7 : POKE53230 , 5 

147 PRINTCHR*<144> 
150 LET N=9 

155 PRINT":]" -REM CLEAR HOME 

160 PRINT "WILLST BU DIE REGELN" 

165 PRINT "WISSEN <1=JR 0=NEINV ; 

170 INPUT fl 

180 IF R-0 THEN 210 

190 GOSUE 718 

200 REM **# MflCHE EINE ZUFFlLLSLISTE 

205 REM *#* fKl) ZU fl<M> 

210 LET fi (. 1 :> = I NT (. (. N- 1 > *RND < > > +2 

220 FOR K=2 TO N 

230 LET fl < K ) = I NT < N*RNB C 1 > > + 1 

240 FOR J=l TO K-l 

250 IF fl<l<>=flCJ> THEN 23© 

260 NEXT J 

270 NEXT K 

280 REM **# BRUCKE ORIGINflLLISTE UND 

285 REM *#* STflRTSPIEL 

290 PRINT 

300 PRINT "SO..HIER IST DIE LISTE:" 

310 LET T=0 

320 GOSUE 619 

330 PRINT "UIEVIELE KNOEPFE SOLL ICH" 
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335 PRINT "UMBREHEN"; 

340 INPUT R 

350 IF R=6 THEN 320 

360 IF R<=N THEN 390 

370 PRINT "OH, BRS SIND ZUVIELE" 

375 PRINT "ICH KRNN HOECHSTENS UN- 

377 PRINT "DREHEN";N 

380 GOTO 330 

390 LET T=T+1 

400 REM *** DREHE R STUECK UND DRUCKE 

405 REM *** EINE NEUE LISTE 

410 FOR K«=l TO INT<R/2> 

420 LET Z=fKK> 

430 LET FKIO=FKR-K+l> 

440 LET fi<R-K+n=Z 

450 NEXT K 

460 OOSUB 610 

470 REM #** VERSUCH ZU GEWINNEN 

480 FOR K=l TO N 

490 IF fl<K)OK THEN 330 

'500 NEXT K 

510 PRINT "BU HRST MIT" j T j "ZUEGEN" 

515 PRINT "OEWONNEN! ! ! " 

520 PRINT 

530 PRINT "NOCHMflL <l=Jfl 0*NEINV; 

540 INPUT R 

550 IF RO0 THEN 210 

560 STOP 

600 REM *** SUBROUTINE *** DRUCKE 

605 REM *** LISTE fl<l) ZU ROD 

610 PRINT 

620 FOR K=l TO N 

630 PRINT fl<K>; 

640 NEXT K 

650 PRINT 

660 PRINT 

670 RETURN 

700 REM *** SUBROUTINE *** DRUCKE DIE 

70S REM *** REGELN RUS 

710 PRINT 

720 PRINT "DRS 1ST 'RE VERS IE'. UM ZU 

725 PRINT "GEWINNEN, MUSST BU NUR EINE 

730 PRINT "ZRHLENLISTE" 
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PRINT "<i EIS";H.; ">» 
'33 FOR Q-l TO 1380: NEXT Q 

735 PRINT "REIHENFOLGE VON LINKS NRCH" 

736 PRINT "RECHTS ERSTELLEN" 

738 PRINT "WIEVIEL STUECK O/0N LINKSV 

'750 PRINT "SOLL ICH UMDREHEN" 

760 PRINT "WENN DIE LRUFENDE LISTE" 

765 PRINT "ZUM BE I SPIEL LFlUTET : " 

770 PRINT 

780 PRINT " 2 3 4 5 16 7 8 9" 

798 PRINT 

800 PRINT "UND DU BREHST 4 UM, DRS ER~" 

805 PRINT "OEBNIS LflUTET '• " 

810 PRINT 

820 PRINT " 5 4 3 2 16 7 8 9" 

330 PRINT 

840 PRINT "WENN DU JETZT 5 UMDREHST , " 

845 PRINT "WIRST DU GEW I NNEN ! " 

846 FOR Q=l TO 1300 -NEXT Q 
350 PRINT 

360 PRINT " 12 3 4 5 6 7 8 9" 

870 PRINT 

880 PRINT "KEIN ZWEIFEL, DIESES SPIEL" 

835 PRINT "GEFRELLT DIR.. WENN DU RBER" 

887 PRINT "flUFGEBEN WILLST, DREHE B" 

388 PRINT "CNULLJ UM. " 

900 PRINT 

918 RETURN 

999 END 
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Kanibalen 



Kanibalen 

Dieses Spiel kennen sicher viele von Ihnen. Es beschreibt das Problem, 
bei dem Missionare sicher iiber den FluB gebracht werden mussen. 
Im Ausgangszustand befinden sich auf der einen Seite des Flusses drei 
Missionare und drei Menschenfresser. Beim Transport mussen Sie 
darauf achten, daB die Kanibalen nicht in der Oberzahl sind. Eine 
gleiche Anzahl wie Missionare ist erlaubt. Sie diirfen auch nicht leer 
iiber den FluB fahren. 

Versuchen Sie es. Es ist ein sehr interessantes Spiel. 

1 PR I NTCHR* <i 44 > = P0KE5328 1,8 = POKES3280 ,10 

26 PRINT"3WBWDREI MISSIONARE UND DREI KANIBALEN" 

30 PR I NT "MS I ND AM UNKEN UFER EIHE8 FLUSSES" 

40 PRINT"MDA ES ZUM SCHWIMMEN ZUGEFflEHRLICH IST" 

50 PRINT"MWHABEN SIE EIN BOOT GEZ I MMERT, WELCHES" 

60 PR I NT "MAXIMAL ZWEI PERSOHEH ZUR OLE I CHEN ZEIT 
ii 

70 PRINT"MEEFOERBERN KANN. " 

71 PRINT" " 

75 GOSUB500 

80 PR I NT "MM DIE MISSIONARE MUESSEN INNER MEHR 

tl 

90 PR I NT "M ALS DIE KANIBALEN 3EIN.-DA SIE." 

92 PRINT" WSONST GEFRESSEN WERDEN" 

95 GOSUB500 

190 PRINT"MMIHR JOB" 

105 PR I NT "MI ST ES DIE 6 SICHER LEBER DEN " 

110 PRINT"MFLUSS ZU HELFEN. SICHER! OHNE UNFALL. " 

115 GOSUB500 
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120 PRINT" 3" 

122 LC«3 = l_ri=3 ■•■ B= 1 : RC-0 : RM=8 

123 Q$="ll?" :B*«" 

125 GOSUB400 •• POKE S.. 60 

126 IFRORM AND RM>0 THEN280 

127 IFLOLM AND LM>0 THEN200 

128 IFRC=3 AND RM=3THEN250 

13© PRINT"WWWWIEVIEL FRHREN7M" 

135 H-LM:IFB<0THEN H=RM 

137 PRINT, .B*;B*;B*"n" 

1 40 PR I NT " M I S3 1 ON ARE : II" .: 

1 46 GOSUB300 : M»V = I F V<0THEN 1 20 

15© H*LC:IFB<@THEN H=RC 

1 60 PR I NT , " KAN I BALEN ■■ SB" ; : OOSUB300 

170 C=V- IFV-O3THEN130 

175 X=M+C: IFK>2THEN270 

177 IFX<1THEN PRINT, "MHSDflS BOOT 1ST WEG ! " '• 00T02 

10 

1S0 LC=C*-B+LC : LM=M*-B+LM 

185 ROC#B+RC:RM=M*B+RM 

5.95 B=-B : MV=MV+1 : G0T0125 

20© PRINT'TTTTTm SSIE FUETTERTEN DIE KAN I BALE 

N" 

210 PR I NT "SWOLLEN SIE NOCH EINMAL "; 

220 I NPUTfl* •• I Ffl*= " N " THEN777 

230 I Ffl** "'J "THEN 120 

240 G0T0777 

250 PRINT".TTTTITTT] SB IE HflBEN SIE BRUEBEN IN" 

M V " 18 ZUEGEN " : PR I NT , " MR I ES I G ! " 

260 GOTO550 

278 PRINT. "WW 2IB00T OESUNKEN ! " 

280 G0T0210 

299 BB JULV78 

300 REM IF H=0THENfl*="9":GOTO320 
305 GETR* •• I F A$~ " S" THEN V=- i '• RETURN 
307 I FR*< " " THEN305 

310 IFA$>"3"THEN PRINTQ*.; = G0T0386 
315 IFVAL<At>>H THEN PRINTQ* ; : G0TG38S 
328 PR I NTAf ; : V-V AL < fl* > ■• RETURN 

400 PRib\T "i^!io^pmimma!im^^"^r- >r 

405 PRINTB$">C"C"C:'CoC< '- ,■■ '• ,■• '• ,- ' • ,•• ''■ ,••'•■ ,- '• .■• '- X:<:<:<XXX" 
410 PR I NTB* " XL I NKSXX -' .- '• tfo ,- '• .- '- ,- '" .- XxRECHTS " 
4 2 Pi P R I N T B $ " WOWifiWW '-■■ '••• '-■■>■■>■■ .■••" / / / / XXX>OOC<XX ' ' 
"* V ' v ? 
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430 PRINTB*">C<X^:oCx*Xtf^ 22m 

435 print "rrrrtTrj > ". .- . f 7 , T m * » « * • 

436 PR I NT B* .; M I B$ < " MMM " , 1 .1 M ^ " " M I B* < " KKK " . i . I r -> 
.;MIB$<B*, 1,6-LN-LO; 

437 IFB<0THENPRINT B$" " .; 

438 PR I NT " <BOOT> "i ■ I FB- 1 THENPR I NT " " E* ; 

439 PR I NTM I B* '■. " MMM " ., J. , RM !:■ " " M I B* <. " KKK " , 1 , RC > " 

II 

440 RETURN 

500 POKE S,60:PRINT"XWHW SIRGEND EINE TRSTE B 

RUECKEN" 

5@5 GETfl*: IFFl*=""THEN505 

5 i 9 POKE S , K ■ PR I NT " ITWMM" : RETURN 

550 REM 

555 F0RT = ii!34T01543M>PEEKa>+64 

556 Z=63fiNBC: IFZ>32THENC~C+64 

557 IFC>255THENC=C~256 

559 POKE I, C: NEXT 

560 OETfl*: IFFI*=" "THEN555 

777 PR I NT " SMWBKKWWaSER VUS " : END 

730 P0KE59468 ,12= PR I NT " nWM SL0E3UNG : WW" 

73 1 PR I NT , " 02 .■ 1 < OR 1 1 . j a "> " 

732 PRINT, "02,01" 
734 PRINT, "20, 11,20" 

786 PR I NT ,"01 , 02 " : PR I NT ,"01,02 < OR 1 , 1 1 ) " 
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ifdfflfcfra&piel 



Nsfnctissplcf 

Das fst das rtcHttge Spiel fiir tmsete Ktetnen. Zeigert Sie dieses Spiel 
Ihren Kfndem zwfschen 5 uttrf 12 Jatiten. Es wtrd Sie begeistern. Sie 
kftrmert fhrett Namett gedmckt sehett, oder die einzelnen Buchstaben 
analysieren. Ein RiesenspaB mrt greBem Lerneffekt. 



5 P0KE5328 1,10 = P0KE53288 , 8 '• PR I NTCHR* 1 1 44 > 

10 DIMK<26> 

15 DIMST*<30> 

59 GOSUB508 

100 PR I NT" 31 CH KflNN FOLGENDES TUN" 

110 PR I NT "Ml IT DEINEM NAMEN :" . 

120 PRINT" WW" 

RUECKWflERTS SCHREIBEN" -PRINT 
DIE BUCHSTABEN ZAEHLEN" : PRINT 
DIE BUCHSTABEN MI'SCHEN" : PRINT 
SENKRECHT H I NSCHRE I BEN " : PR I NT 
DIE BUCHSTABEN SORT I EREN " : PRINT 
E I HEN NEUEN NAMEN E I NGEBEN " : PR I NT 

1 90 PR I NT " 7 SP I ELENDE " ; PR I NT 

220 GETC$=IF C$~""00T0228 

230 V=VRL ■:: C* ':> ■ I FV< 1 ORV>7THEN220 

235 I FC>~ 1 RHBCC9G0T0268 

240 PR I NT" BUTE NUR .1,2,3,4,5,6 ODER 7" 

258 G0T0228 

255 IFC-=0GOTO58 

260 ON V GOSUB 400,608,800,1000,1200,588,1400 

265 IFV-6THEN10Q 

270 PRINT"SNOCH EINMflL ?" 

288 GETC* : I FC*= " " G0T0288 

2 9 I F C & = ' ' J ' ' G T 2 6 

293 IFC*O"N"THENS80 

308 GOTO 100 

144 



130 


PRINT" 


1 


148 


PRINT" 


o 


1.50 


PRINT" 


3 


160 


PRINT" 


4 


170 


PRINT" 


5 


1 80 


PRINT" 


6 



408 PR I NT "SIGH SCHREIBE HE I MEN NRMEN RUECKWRERTS 

" : PRINT: PRINT 

420 F0RI=1T019 

430 FORJ=0TOL~1 

440 PR I HTM I D* < N* , L-J , 1 > i ■ NEXT J 

445 PRINT 

450 NEXT I 

460 RETURN 

500 PRINT"nWWWWWIE HEISST DU ? "; 

501 INPUT N* 

502 IF N*=""THEN500 
505 L * LEN<N$> 
530 RETURN 

600 PR I NT " n" ■ N* .: " , DE I N NAME HRT : " : PR I NT 

6 1 FOR I = 1 T02S : K < I ) =0 = NEXT I 

620 FOR I o 1 TOL : J=flSC < M I D* (. N* .. I , O > -63 

625 IF,T>260RJ<1 00T0635 

630 K<J>»K<J>+1 

635 NEXT I 

640 FOR I = 1 T026 : I Fl< < I > "0GOTO690 

660 PR I NTK < I ) .; " " .; CHR* ( I +63 > i 

670 IF K < I '.> > 1 THENPR I NT " ' S " ; 

675 PRINT: PRINT 

690 NEXT I 

700 RETURN 

800 PRINT":HIER SINK DIE EUCHSTREEN DEI.NE8 NRMEN 

C It 
•-t .« 

310 PRINT"ERKENNST DU SIE flLLE ?"= PRINT '■ PRINT 

830 KK=L = PRINT" "; 

840 FOR I « 1 TOL : l< U > = I = NEXT I 

850 I FKK< 1 OOTO900 

860 X= I NT < RND < 1 > *KK+ 1) : PR I NTM I D* a-!* , K < X > , 1 > ; " " ; 

870 F0RJ=1T0KK ■• P=J=>X : K< J>»K< J-P> : NEXT J 

890 KK~KK-~1 :GOTO850 

90S PRINT : PRINT:PRINT"DRUEC.:<E EINE TASTE, WENN D 

U SIE" 

90 1 PR I NT " flLLE GEFUNDEN HflST ! " : PR I NT = PR I NT 

902 T=TI 

9 1 GETC* ■• I FC** " " G0T09 1 © 

915 X?i=<TI-TV60:PRINT:PRINT 

920 PRINT: PRINT"SEHR GUT, DU ERRUCHTEST NUR" 

930 PRINTXK; "SEKUNDEN" 
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940 RETURN 

1000 PRINT":!" 

1010 FORI-lTOL:X*-*tID*<N*, I •■ 1 > 

1020 FORJ-0TO9:PRINTX*J H " ; ■'■ NEXT J 

1040 NEXTI 

1050 RETURN 

1200 PRINT":!" = PR INT" I CH SORT I ERE DIE BUCHSTABEN' 

1201 PRINT" IN DEINEM NAMEN . . . " = PRINT : PRINT 
1 205 FORX- 1 TOL •• ST* C X > »M I H* < N* , X , 1 > : NEXTX 
1210 FORX=lTOUFORV=lTOL-l 

1 220 A* ASC <. ST* < V > > = B= ASC < ST* < V+ 1 ) > 

1240 IFA>BTHEN1260 

1250 GOTO 1230 

1 260 SH$=ST* < V > ■ ST* (. V > =ST* < V+.l > : ST* < V+ 1 ) =SH* 

1280 NEXTV : NEXTX 

1 298 FORX= 1 TOL = PR I NTST* < X > " " j = NEXTX 

1295 PRINT: PRINT 

1300 RETURN 

1400 PRINr'rWHWKM'V'S P I E L E N D EJ 

1410 END 
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JANEIN 



JANEIN 

Dies ist wieder ein einfaches und sehr elementares Spiel fur den An- 

fanger. 

Es gibt Ihnen Antwort auf "alle" Fragen! Meditieren Sie vor Ihrem 

Bildschirm und stelten Sie sich Fragen, die mit JA oder NEIN beant- 

wortet werden konnen. Ahnlich wie friiher beim Knopfe abzahlen 

konnen Sie dann eine Entscheidung herbeifiihren. Viel SpaB ! 

10 POKE 53281, 10- POKE53280..0 
20 PRINTCHR*<144> 

99 PRIHT"3MWW«W" 

100 PRINT, "SKONZENTRIEREN SI EM" 
110 PRINT,"SSICH RUF FRRGEH 
112 PRINT, "SID IE SIE MIT JR ODER 

114 PRINT," SHE IN BEflHTWORTEN KOENNEN" 

115 PRINT"WBlPMi!!li!!l M 

120 PRINT." DRUEGKE EINE TPSTEK" 

130 PRINT," UM DIE RNTWORT ZU FINDEN" 

135 R=9876 

1 40 GETfi* : R-R- 1 : I Ffi$= " " AND < R>0 > THEN 1 49 

142 IFfl*="i!a"THEHENr 

145 IFROTHEN PRINT":]" = STOP 

147 N~2 

1 50 R=R- < I NT < R/N > *N '> + 1 

160 RESTORE^ FOR K=1T0R"-REFID R* ■ NEXT 

1 79 pr i nt " nwrnwimmmmm" , r* 

180 T=TI+12B : L=LEN<fi*> 
135 F0RC=162T0163 
196 CETfl*--PRINT, ■ 

1 94 FOR I * 1 TOL = PR I NTCHR* < C > " Tli" CHR* ( C+ 1 > " Kffl" ; : NE 
XT 

195 FORI = lTOSe.-'L.: NEXT 

196 PRINT"!" '-NEXT C 
198 IFT>TI THEN I 83 
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2@@ G0T099 

833 EB JUNE 73 

500 DflTfl Jfl ..HEIH.nOEGLICH.WflHRSCHEINLICH 

510 DflTfl "NRTUERLICH 

520 DflTfl "KONZENTRIEREN SIE SICH 

530 DflTfl "MflCH KEINEN WITZ 

54© DflTfl "DflS 1ST EI HE DUMME FRflGE 

550 DflTfl "IN ALLEN FflELLEN 

560 DflTfl SI CHER ..ODER WAS DEHKST DU? 
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Einfaches 
Zahlenraten 



Einfaches Zahlenraten 

Dieses Spiel eignet sich bestens fiir den Anfanger unter den C-64 An- 
wendern. 

Geben Sie es ein, untersuchen Sie das Programm und versuchen Sie 
es zu verstehen. Es ist ideal fiir den Anfanger. 



110 REM *** COPVRIGHT: ING. W. HGFACKER * 

120 REM **# TEGERNSEERSTR. 18 

125 REM **•* D-8150 HOLZKIRCHEH.- J QBB. ** 

280 REM *** PRINT INSTRUCTION ON HOW 

205 REM *#* TO PLflV 

210 PRINT "ICH DENKE MIR EINE GANZ-" 

215 PRINT "ZflHLIGE ZRHL ZWISCHEN" 

217 PRINT "1 UND 100" 

220 PRINT "VERSUCH MEINE ZflHL ZU" 

223 PRINT "ERRATEN. NACH JEDEM VERSUCH" 

225 PRINT "WERDE ICH DIR SAOEN, OB " 

227 PRINT "ES RICHTIG WAR, ODER NICHT" 

240 PRINT " HEINE ZflHL IST ZU HOCH" 

245 PRINT " ODER ZU NIEDRIG" 

309 REM*** COMPUTER '"THINKS-' OF A 
305 REM*** NUMBER - CALL IT X 

3 1 LET X* I NT < 1 00*RND < 1 > > + 1 
320 PRINT 

330 PRINT "OK, ICH HflBE EINE ZflHL.. " 

335 PRINT "FANOE AN ZU RATEN" 

400 REM *** DER MENSCH BEOINNT ZU 

405 REM *** RATEN 

410 PRINT 

420 PRINT "WAS RATEST DU"; 

430 INPUT G 

440 IF G=X THEN 500 

450 IF G>X THEN 480 
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460 PRINT "ZU HIEDRIG, VERSUCH EI HE" 

465 PRINT " GROESSERE ZRHL" 

478 GOTO 410 

480 PRINT "ZU HOCH.. VERSUCH EI HE" 

485 PRINT " HIEDRIGERE ZRHL" 

490 GOTO 410 

500 REM *** DER MENSCH HflT DIE ZRHL , 

505 REM *** DE8 COMPUTERS ERRflTEN 

510 PRINT 

520 PRIHT "RICHTIG, WILLST DU HOCH" 

525 PRIHT "EINMflL RRTEH?" 

530 PRIHT 

540 GOTO 300 

999 END 
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Bildschirmspiel 



Bildschirmspiel 

Dies ist wieder ein einfaches Spiel fur unsere Kleinen. 

Starten mit RUN. Auf die Frage "BEREIT ?" antworten wir mit JA 
und beobachten was auf dem Bildschirm passiert. 

Oann driicken wir alle moglichen Zahlen und Buchstaben und verfolgen 
das Geschehen auf unserem Bildschirm. 



1 P0KE5328 1 , 1 @ ■ P0KE5328Q , : PR I NTCHR* < 1 44 > 

2 PR I NT " 3" ; TAB a 4 > :• " SSP I ELS" 

3 PRINr'SMMTOOBITTE DRUECHE EI HE BELIEBIGE TASTE" 

4 PRINT"MUND EEOBACHTE, WAS DANN AUF DEM" 

5 PR I NT "BILDSCHIRM ERSCHEINT. " 

6 PRINT"Mro!MWI BEREIT ?" 

7 GETRE*: IF RE*0"J" THEN 7 

8 FOR I = 1 T025 = PR I NT : PR I NT I .; : NEXT 

9 GETfi*: IFA*=""THEN9 

1 XX=32768 = PR I. NT " 3" 

1 5 P0KE59468 ,14: pp i ^j » yammssmcemimemmmM" 

1 7 PR I NT , " SBUCHE DE I NE I N I T I AL I EN i ST' 

20 X- I NT < RND < 2 > *48 > ■ V~RND < 2 > # 1 1 

30 I F •:: XAND2 ".> =0THENV=V+ 1 1 

40 POKE I NT < V :> *40+X+XX , RND < 2 > #26+ 1 

50 GETfl*: IFA$=""THEN20 

51 P0KE59468..12 

52 PR I NT " ^. N< H< H^ ^ i4>-: :4k i4n :4^: H« :•« :4h :>{h :•!•-: f^: :4h -:4>-: :^h :4< -:^ ■•!< ^ :^ =4h =4k =4h -i^. -^ :4>; ^h: -^ -^ ^ ^ ^< £^n e^: : vin ^>: 

55 X~l : F\***"Wffl$m hmd 0*® m Wffl" 

65 PR I NTfl* : FOR I = 1 TOX '■ NEXT 

70 PRINT"S";fl*:X=X+3 

75 F0RI=1T0X:NEXT 

80 GETP* : I FP*= " " THEN65 
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88 GETfi* ■•■IFfl*0" "THENP*=R* : IFP**"n" 
9468.. 12--G0T089 

89 IFP*="M"THENP0KE59468.. 14 = G0T088 
99 PRIHTPf; :G0T088 
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Black Jack 



Black Jack 

Folgen Sie uns im Spielkasino und spielen Sie mit Ihrem Computer 
Black Jack. Versuchen Sie moglichst nahe an 21 heranzukommen. 
H bedeutet noch eine Karte, und mit S beenden Sie Ihren Teil des 
Spieles. Der Computer zieht dann auch und beendet das Spiel. 

Ober das gewonnene bzw. verlorene Geld wird Buch gefiihrt. 

1 P0KE532S 1,7- POKE53280 , 3 • PR I NTCHR* < 1 44 > 

7 DIMFK4, 14) 

8 QOSUB1900 

9 FORX= 1 T04 •■ FORV= 1 TO 1 4 ■ fl < X , V > =0 = HEXTV : HEXTX 
15 E=0:PRINT"n" 

20 C$= " " '• P=0 = W~0 : H"8 = K=0 : E=0 : F=@ : G=S : N=@ : M=0 : L~ 
L+l 

70 G0SUB155 

71 0*=S* 

75 GOSUB290 

30 IFC*=" fi"THEN85 

31 GOTD30 
35 G=G+1 

90 E=E+X:X=0 

95 I FE>2 1 flNBG>0THEH260 

100 P$=C$ 

101 G0SUB385 

102 IFH=0THEN105 

103 IFN=iTHENGOSUB60@ 

104 GOTO .1.15 

1 05 P*=H* : S$=0* : GGSUB4 1 9 
115 N=N+1 

120 IFE>21THEH122 

121 GOTO 125 

1 22 PR I NT " SWWWS" ; PR I NT " til " : PR I NT " STv'ERB 
RflNMT ": PRINT 1 
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£32 V=V+BET*2 : U=U-BET*2 

235 PRINT" IHR STAND DM"V" HflUS DM"U 

240 PRINT" NOCHEINMflL - J FUER Jfl, N FUER NEIH" 

245 GETQ* 1 - IFQ*=""THEN245 

259 IFQ*="J"THEN8 
255 GOTO360 

260 E=E-10 
265 G=G~1 
270 GOTO 190 
275 B=B~10 
280 F=F~1 
285 GOTO 195 

298 K=INT<4*RNDa> + l> 
291 X=INT<12*RND<l)+2> 



PRINTCHR*C2S> 
PRINTCHR*(144) 
PRINTCHR*<28> 
PRINTCHR*<144) 



296 IFK=1THENS$="#" 

297 IFK=2THENS*="*" 

298 I FK=3THENS*= " * " 

299 IFK=4THENS*=s"*" 

300 I Ffl < K , X ':> » 1 THEN290 

301 A<K,X>=1 
305 C*=STR*<X> 

310 IFX=12THEN325 

311 IFX=13THEN335 

312 IFX=i4THEN345 

313 IFX<11THEN355 
315 C*=" fl" 

820 G0T0355 
325 C$=" K" 
330 GOTO350 
335 C*=" Q" 
340 GOTO350 
345 €■■$-" J" 
350 X-1.0 

355 RETURN 

356 L-0 

357 RETURN 

360 PR I NT" 3" :EHD 
385 PP. I NT "M" 
400 W=W+4 
405 PRINTCHR*<2S> 

4 1 PR I NTTAB < W ) " ,• ■, " 

420 PR I NTTRE ( W ) " ! " P$Sf TAB < W+5 > 
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436 FOP. I * 1 T05 : PR I NTTflB < W ? " I I " 

446 NEXT I 

450 PR I HTTRE (. W > " I " P*S*TflB < W+9 ) " I " 

468 PR I NTTflB ( W > " ' ' " 

470 RETURN 

50© PR I NT " .S3" '• FOR I = 1 T09 : PR I NT : NEXT I : W»M*4 : P*=»H* : R 

ETURN 

600 PR I NTTF-lB ( 8 > " ,• •, " 

610 F0RI--1T03 

611 PR I NTTflB < 8 >" I $ m M I" 

612 PR I NTTflB < 8 V I & & 8 I" 

613 NEXT I 

614 PR I NTTflB CSV ! m & & I " 

6 15 PR I NTTflB < 3) " '• -' " 

616 PRINTTABW'GEBE H FUER MEHR UND S FUER PR3S 
EN" 

620 RETURN 

700 PR I NT "SWIMS" 

70 1 PR I NTTflB '■•: W+ 1 3 > "13 

702- PRINTTAB<UH-i8V'EJBLflCI< JACK" 



703 PRINTTAB<W+13>"3 
T : PR I NT = PR I NT : PP. I NT 

704 REM MUSIK 

705 BET=2*BET : GDT023S 
SOS REM MUSIK 

810 RETURN 
900 REM MUSIK 
910 RETURN 
1000 PR I NT "71 

1004 PR I NT" 71 

1005 PRINT: PRINT" 
1010 PRINT: INPUT" 
1020 RETURN 



: PR I NT= PR I NT: PR IN 



DPS HflUS BEZRHLT 2 ZU 1, 
BRS HflUS BEZflHLT 2 ZU 1, ' 
4 ZU 1 IM BLACKJACK 
BITTE SETZEN S IE"; BET 
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Gliicksrad 



Glucksrad 

Dies ist ein ganz einfaches Spielautomatenprogramm. Es ist schnell ein- 
gegeben und bringt sofort ein Erfolgserlebnis. 

1 POKE 53281.. 7:POKE53280,3 

2 PRINTCHR$a44> 

5 REN COPYRIGHT BV PETER KNOTT <li J.) 

10 PR I NT "3 

20 FOR 1=1 TO 12 

30 PRINT 

40 NEXT I 

50 PRINT" *$* GLUECKSRRB *$:+•: 

60 FOR I « 1 TO 1 000 : NEXT 

61 F0RI=1T010 

62 PRINT" 

63 NEXT 

64 INPUT"SPIELREGELN ? (J 0. N>";Q* 

65 IFQ*="N"' THEN 1S0 

66 PR I NT "n 

70 PR I NT "DIESES SPIEL. SIMULIERT EINEH 3PIELRUT0- 

75 PRINT 

80 PRINT"MRTEN. WENN MRNN S?H DRUECKT, 

85 PRINT 

90 PRINT"HRELT DRS PROGRRMM RUTOMRTISCH RN UND E 

•™t 

95 PRINT 

.1.00 PRINT" WJ.RH HE IN GEN I NN flNGEZEIGT. 

110 FOR I •- 1 TO 1 20S0 = NEXT 

114 PRINT 

116 PRINT 

120 PR I NT "VI EL GLUECK ! ! 

130 FORI = 1TO1000N-IEXT 

150 PR I NT "S 

160 fl=H-INT<6*RNE<l)> 
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i 76 E= 1 + 1 NT <■. 6*RND < 1 ') '.'■> 
1 S3 C= i + 1 NT < 6*RND '•• 1 > > 

1 9i3 PR I NT " a " .; ft :• " ■" .; "' " ; " s? " ; B ;. 

"SI" .; " " ; " $ . " ; C 

200 GETR$:IFR*=="?" THEN 211 

219 GOTO 160 

211 PRINT":'] 

212 GOSUB 1800 

213 PRINT" $ "; ft.: "■".:"* " .: " S3 'ME; 

II (gnu ; It ll • II «j II ; r 

214' print' 

215 IFR=B RI--1H 'B=C THEN250 

220 IFfl=B OR B=C OR fl~C THEN 243 

230 PRINT" LEIBER NIGHT GEWONNEN . " : G0T0269 

245 PRINT"H!J HfiST DM 1 GEWONNEH. 2 ZflHLEN SIND G 
LEICH. VERSUCH ES NOCH EINMflL! 

246 GOTO 260 

258 PRINT" DU HflST DM 10 GEWONNEN. HflUPTGEWINN! 

CRRTULIERE- ! ! " 

260 PRINT" 

270 PRINT" 

280 PRINT"WILLST DU NOCH EINMflL SPIELEN ?" 

290 PRINT"<NUR ? EINGEBEN, SCHFlLTET SONST NftCH 

300 PRINT"20 SEKUNDEN flB. > 

310 FORI"1TO3400 

320 GETR* •• I FR*» " ? " THEN 1 50 

330 NEXT I 

340 END 

1000 F0RI~1T09 

1010 PRINT 

1020 NEXT 

1030 RETURN 
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Bomber 



Bomber 

Ein lustiges Bombenabwurfspiel mit Ton und Grafik. Sehr einfach fur 
den Anfanger. Dieses Programm ist schnell eingetippt und bringt 
riesigen SpaB. 

i 

4 PRINT":]" 

5 PRINT" a *BOMBER* 

6 P0KE5328 1 , 7 : POKE53280 , 3 

1 8 FORG™ 1 TO 1 900 : NEXTG :PR INT CH RS(1 44) 

15 PR I NT "IT 

20 PRIHT"SIE FLIEGEN ElNEN**STflRFIOHTER" 
25 PR I NT "UND MUESSEN BEN" LUFTRAUN UEEER" 
30 PR I NT "BER MORE SEE UEBERWRCHEN" 

35 PR I NT "FE I NHL I CHE U-BOOTE NflEHERN" 
40 PRINT "SICH HER KUESTE. GIE MUESSEN" 
45 PRINT"BIESE UNBEDIMGT RM EINBR1NGEN" 
47 PR1NT"HINHERN" 

50 PRINT"flUCH BER WRSSERSTROM BEEINFUSST" 

55 PR I NT "D IE NURFRICHTUNG BER EOMBE" 

60 PR I NT "ALSO LOS GEHTS" 

62 PRINT 

65 PRINT"BRUECKE 'F' ZUM RBWURF BER BOMBEN" 

70 PRINT 

75 PRINT ,! FERTIGCJ-N)?" 

80 GETH*: IFH$=""THEN 89 

85 I FH*= " J " THEN PR I NT " IT' i ■ GOTO 110 

90 IFH*»"N"THEN 95 

95 PRINT 

36 PR I NT'S IE UOLLTEN BOCH SOW I ESQ SPIELEN" 
100 PRINT"NR BENN LOS. " 

1 05 FOR I = 1 TO300S = NEXT I : PR I NT " 3" j 
119 PR I NT "a" y 

1 1 5 PR I NT " mm ^ m ». M m^,, lnmiB , lllm i BM n M n IKIttm i^ l l m „ IM ,^ l ^,,n ll ,n J » a Hn ml , n „ l , B ^ m .,,,, l „,,n,,,,, l ,, :m 
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128 PR I HTM 
125 PRINT" 



__, 

130 PR I NT "S3" 

135 PRWT"'mmmM!>M!MM'' 1 

1_40 PRINT" -~ttr 

145 G0SUB244:PRINT"H" 

155 F0RP,= 1T03£^ l* 4 - * 

165 printtp,ec:p:^print">mi9I« +JLJq " 
1 70 getc* ; i fc*» " " then230 
175 ifc*="f"theh1s@ 

176 GOTO200 REM £e*°17 

1S0 GOSUB 2890 : FORD=1TO10 *?* ^f- -17^° 

185 PRINTTflB<B+FO ■ PRINT" . " : NEXTD 

1 90 PR I NTTPB •-. < D+fl ) -3 ) •• PR I NT " ***** " 

195 GOTG220 

200 PRINT")M«i5l«(!MW" n ... 

205 B=< fl-32 >*-l &*(A-1M*1 

210 PRINTTRB<B+l>:PRINT" 2 H * " 

21 5 G0T0225 

220 M-n+i 

221 IF<D+fi>=24THEN24@ 

224 IFM=50TI-IEN280 

225 PR I NT "M" 
238 NEXTFI 

235 PR I NT "H"-- GOTO 110 

240 J~J+1 

241 GOSUB2100 

242 IFJ=11THEN270 

243 PR I NT " IT 1 •• GOTO 110 . 

244 PR I NTB$ ; " STREFFER " :• J : PR I NT " SW5CHUESSE " ; Wj 1 FN 
=0THEH250 

247 PR I NT " SWSCHN I TT= " ; I NT < 1 00* < J/H :> ■> j " IK " 

250 RETURN 

260 GOTO 110 

270 RESTORE 

275 G0T0118 

280 RESTORE 

285 G0T0118 

2000 V=54236 ■ W=54276 : R=54277 : H=54273 ; L=54272 

20 1 POKE V > 1 5 : POKEW > 65 •• POKER ,15 

2020 FOR X=20TO5STEP-2 = POKEH , 40 ■■ POKEL , X ; NEXT 
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2930 FORK- 1 5 T05STEP-2 : POKEH , 49 ■ POKEL , X '• NEXT 

2035 POKE W, 0= POKER, 0= RETURN 

2 1 00 FOR X= 1 5TO0STEP- 1 = POKEV , X '■ POKEW ,129- POKER , 1 

5 = POKEH, 40 : POKEL, 200 = NEXT 

2110 POKE W, 0= POKER, Q- RETURN 

2120 REM 
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Landschaft 



Landschaft 

Dies ist ein kleines Demoprogramm zur Veranschaulichung der Farb- 

eigenschaften Ihres C-64. 



100 
U0 

120 
130 
140 
150 
160 
170 
180 
200 
210 
220 
230 
240 
250 
290 

300 

310 
320 
330 
34Q 
350 

•ft ••" i"!i 

JotJ 

It 

370 
C " 
380 
EC " 

400 

410 



REM LANDSCHAFT 

FORX=0TO47 

READA 

P0KE12288+3+X..A 

NEXTX 

P0KE53272 , (. PEEK < 53272 ') ANB248 :> + 1 2 

FORX=0TO7 

POKE12288+32*8+X,0:REM CLEAR BLANK 

NEXTX 

BATA1,3,7, 15,31,63, 127, 255 : REM 'fl' 

D AT A255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 = REM ' B ' 

DATA 128,192 , 224 ,240,248,252, 254 , 255 = REM ' C 

D AT A 1 , 1 , 1 5 , 1 5 , 1 , 1 , 1 , 1 : REM ' H ' 

DATA 1 28 , 1 28 , 240 , 240 , 1 28 , 1 28 , 1 28 , 1 28 '■ REM ' E ' 

D AT A255 , 255 , 1 95 , 1 95 , 1 95 , 1 95 , 255 , 255 = REM " F ' 

PR I NT "3" 

PRINT"3a(WW0(WW"J 

PRINT" 



PRINT" 
PRINT" 
PRINT" 
PRINT" 



DE 

AC 

ABBC 

ABBBBC 



AC 

ABBC 

ABBBBC 



PRINT" ABBBBBBC ABBBBBBC 
PRINT" ABBBBBBBBC ABBBBBBBBC 



AC" 

ABBC" 

ABBBBC" 

ABBBBBBC" 

ABBBBBBBBC" 

ABBBBBBBBBBC 

ABBBBBBBBBBBB 



PR I NT " ABBBBBBBBBBCABBBBBBBBBBCABBBBBBBBBBBBB 

PR I NT " asMt!MWMiai!iMiMtti!!li5M« il .; 
PRINT" ABBBBBBBC" 
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420 PRINT" FFFFFFF REEEBBEf:" 

430 PRINT" FFFFFFF FFFFFF" 

440 PRINT" FFFFFFF FFFFFF" 

450 PRINT" FFFFFFF FFFFFF" 

460 PRINT" FFFFFFF FFFFFF" 

470 PRINT" FFFFFFF FFFFFF" 
480 PR I NT : PR I NT " BBEBBEEBBEEBBEEEEBEEEEEEBBBBEBBB 

ebeebebbbebbbebebbbbbebbeeee " j 
490 pr i nt " bbebbbbbbbbebbbbbebb " 
500 for:«:=0toii9 
510 pokex+55376, 1 : rem snow 

520 NEXTX 

530 FORX=0TO119 

540 POKEX+55496, 12:REM ROCK 

550 NEXTX 

560 FORX=0TQ79 

570 P0KEX+55616,5 : REM GPfiSfi 

530 NEXTX 

590 FGRX=0TO39 

60© PGKEX+55816,2'REM ROOF 

610 NEXTX 

620 FORX=0TO239 

630 I FX>20fiNDX<40THENPOKE53856+X , 2 : NEXTX 

640 P0KEX+55856,7:REM HOUSE 

650 NEXTX 

6SQ FORX=0TO79 

670 POKEX+561 36, 15: REM STREET 

680 NEXTX 

700 POKE 55416+5, 9- P0KE554 16+6, 3- REM CROSS 

710 OOTO710 
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Partyspiel 



Partyspiel 

Dieses Spiel sollten Sie auf Ihrer nachsten Party in Ihren C-64 laden. 
Sie werden einen riesigen SpaB haben. 

Das Programm beruht auf einem Prinzip der kiinst lichen Intelligenz und 
kann Ihre einzelnen Partygaste kennenlernen und eine lustige Kon- 
versation fiihren. 
Am Anfang kennt das Programm nur zwei Personen. 

Nach dem Start mit RUN fragt es als erstes, ob esdas Datenband lesen 
soil. Am Anfang mussen Sie diese Frage naturlich mit NEIN beant- 
worten. 

Jetzt fragt das Programm: Denke an eine Person ! Wenn Sie diese vor 
Augen haben, geben Sie JA ein. 1st es eine Frau ? Geben Sie jetzt JA 
oder NEIN ein. Wenn Sie J fur Ja eingeben, behauptet der Computer 
es sei Marylyn Monroe gewesen. Sie hatten sicher an Ihre Freundin 
gedacht und sollten jetzt mit N fur Nein antworten. Jetzt geben Sie den 
Namen Ihrer Freundin ein: z. B. KATHY. Jetzt mussen wir eine Frage 
eingeben, die Marylyn und Kathy unterscheidet. Die Frage muB spater 
mit JA oder NEIN beantwortet werden konnen. Zum Beispiel: Wer 
ist schoner ? 

Jetzt fragt Sie der Computer: Fur KATHY ware die Antwort (J/N). 
Jetzt geben Sie naturlich JA ein, weil KATHY schoner als die Monroe 
ist. So geht das Fragespiel immer weiter, bis alle Partygaste "im" 
Computer sind. Nun konnen Sie die tollsten Dinge erleben. Der 
Phantasie sind keine Grenzen gesetzt. 



4 P0KE5328 1 > 1 '• P0KE53289 , @ : PR I NTCHR* <. 1 44 > 

5 PRINT'TaWHM" 
7 P0KE59468, 12 
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10 PRINT" o ".• , 

12 PRINT" •->-■, ",," rS " , " ,- J -' " 

13 PRINT" • " , " SLEUTES" , " #"," M" 

14 PRINT" I I " , , " I I "," g8" 

15 IF G THEN 263 

20 PRINT"MBSOLL ICH ZUERST DAS DATENBANB LESEN"; 

30 G=3:DEF FNQ<Z)=<flSC<B*)-Z> 

32 G0SUB999 

35 I F VES THEN OPEN 1 , 1 , 8 , " T . DATA " ■ I NPUT# 1 , G 

40 DIN G*<99> J VN<99) 

50 G* a > = " ? I ST ES E I NE FRflU " . = G* < 2 > = " MflR I LVN MONR 

OE" 

6© G* < 3 > = " JAMES BOND " = VN (. 1 > =2 = VN < 2 > =3 

70 IF NOT VESTHEN110 

80 FOR I « 1 TOG = I NPUT# 1 .■ B* 

85 IF ST>0THEN151 

90 INPIJT#l,VNa> 

95 IFN0TFNQ<63)THENPRINT,B* 

100 G*<I>*B*:NEXT=CLOSEl 

110 PRINT"" 

115 PRINT" SDENK AN EINE PERSON ..." 

120 PR I NT "W SFERTIG ? " 

1 30 GETA* : I FA*= " " THEN 1 30 

140 IFA*="J"THEN5 

141 IFA$= ,, S"THEN150 

142 GOTO 130 

150 REM *LIST & SAVE 

151 PR I NT " a«" : FOR I = 1 TOG : PR I NT I ; VN < I > , G* < I > ■ NEXT 

154 PR I NT "MSB I TTE DAS DATENBAND ZURUECKSPULEN" 

155 PRINT " SFERTICH " ; : G0SUB999 : IFNOTVEST 
HENS 

1 60 OPEN 1 , 1 , 2 , " T . DATA " '• PR I NT# 1 , G 
1 65 FOR I = 1 TOG • B*-G* < I > ■ PR I NT# 1 , B* 
168 PR I NT# 1 > VN < I > ■ NEXT 

170 CLOSE 1 

171 PRINT"3W«M««flUF WIEDERSEHEM ! ! ! XnumMMtaT 

172 END 

200 X*1=B*«G*<X) 

210 PRINT"MMM" 

250 PRINT MID$<B$,2..99>.; 

300 G0SUB999 : S=X+ 1 + VES = P= VN < S > 
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350 BMG*<P-> = IF FNQ<63>THENX«P : GOTO2S0 

375 PR I NT "M "B$", STIMliT'S"; 

379 G0SUB999 

388 -IFVESTHEN4000 

399 IFG>99THEN150 

400 PRINT"M*IIE HEISST DIE NEUE PERSON" 

4 1 V**B* •■ GOSUB20000 ■■ B$= I N* : I FflSC < B* ') <65THEN 1 1 
428 PRINT"SBITTE GIB EINE FRflGE AN, DIE" 

425 PR I NT " iS" B* " SI VON " V* 

426 PRINT" SUNTERSCHEIDET" 

430 GOSUB20000 : W*» I N* • G=G+ 1 : G* < G ':> * " ? " +W* 

440 PR I NT "FUER "jB*.:" WRERE DIE RNTWORT < J/N V ; : 

G0SUB999 

450 VN<G-<NOTVES>>=G+l 

460 VN03~VES>=P : VhKS>~G 

470 G=G+1 : G$CG>«B* 

500 GOTO 110 

555 BB 7SJUHE16 

995 *#RLLOWS VES, SI, Jfi 

999 PRINT"? ".: 

1 000 GETfl* : I FR$= " " THEN 1 060 

1500 VES=fl$-"V"OR R*="S"OR fl$""J" 
1600 IF VES THEN PRINT fi$: RETURN 

2000 IF R*0"N" THEN 1800 

2001 PRINT m- RETURN 

4000 PRINT"!?] GUT, NEUER VERSUCH ? 
4010 OETRE$ : IFRE*='""THEN4010 
4020 I FRE$= " J " THEN 1 1 
4030 I FRE*-= " N " THEN 1 7 1 
4040 GOTO4010 

5000 PR I NT " IT .; TRB < 1 4 > ; " SLEUTES" 

5001 REM 

5010 PRINT"W»ICH VERSUCHE, DIE PER30NEN ZU ERRRT 

EN," 

5020 PR I NT "AN DIE SIE GEDRCHT HRBEN. " 

5038 PRINT"DRZU WERBE ICH IHNEN EINIGE FRflGEN" 

504© PRINT"STELLEN ,DIE SIE MIT SURSg ODER SNEINH 

II 

5050 PRINT"BERNTWGRTEN SOLLEN. " 

5068 PR I NT "MAM RNFRHG KENNE ICH NUR 2 PERSONEN, " 

5079 PR I NT "FIBER ICH LERNE IMMER NEUE DflZU <BIS 9 
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598© 

HT" 

5090 

5100 

5110 

5200 



20000 
20001 

20010 
20029 
20030 
20040 
20050 
20060 
20070 
20080 
20090 

20100 

20105 
20119 
20128 
20130 
20140 
20200 
20210 
20220 



PR I NT "FALLS I.CH BE I SPIELENDE DIE DfiTEN NIC 

PRINT"VERGESSEN SLL GEBEN SIE BITTE" 
PR INT" E IN SSI HSICHERN) EIN ! " 
PRINT"MMW EEREIT ?" 
GETRE* = I FRE*<> " J " THEH5200 
RETURN 

REM EINGflBEROUTINE 

REM ALITOR : W. HOFflCKER 

I N*= " " : AN2=0 : PR I NT " ?_J|" i 

CETZZ*: IF ZZ*="" THEN 20020 

ZZ - flSCtZZ*) 

IF ZZ=20 THEN 20100: REM DELETE 

IF ZZ-13 THEN 20200 : REM RETURN 

IF ZZ<32 OR ZZ>96 THEN 20020 



IN* = IN*+ZZ*= ANZ = 

PRINTZZ*; "-jr.; 

GOTO 20020 

IF RNZ=1 THEN 1N*="" 

IF RNZ<1 THEN 20020 

flNZ « flHZ-1 

IN* = LEFT* UN*, flNZ ) 

PRINT" HUH"; 

GOTO 20020 

IF flN2=0 THEN 20020 

PRINT" " 

RETURN 



ANZ+1 



I=INZ==0 : GOTO 20130 
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Reaktionszeit 



Reaktionszeit 

Auch dieses Programm diirfte auf Ihrer Party auf groBes Interesse 
stoBen. Testen Sie Ihre Reaktionszeit und schlieBen Sie daraus Ihren 
Alkoholspiegel. Ein riesiger SpaB ! 

1 P0KE5328 1 .• 7 : POKE53280 , 3 ■ PP. I NTCHR* < 1 44 > 

2 GOSUB200 

3 B*«" " : DUMMV=RND<-TI) 

4 PP I HT" DIESES PROGRAMM TESTET IHRE REFLEXE ■■ " 

5 PPINT"MBITTE BRUECKEN SIE IRGENDEINE TASTE, " 

6 PPINT"WENN DAS WORT flLOS ! S ERSCHEINT. " 

7 PRIHT"MiANACH WIRD IHRE REAKTIONSZEIT UND" 
R PRINT "DIE DURCHSCHNITTSZEIT ANGEZEIGT. " 

15 PR I NT" WW BEREIT .'?" 

16 GET RE*: IF RE*O m J" THEN 16 

17 PR I NT "a": P0KE59468,12 

IS T I *■ " 900000 " : T=T I +RND <-. 1 ':> #399+60 
20 PRINT'TlBWUflRUFGEPASST ..." 

30 GETfl*:IFfl*0""THEN PRINTVMXDO*** SCEMOGELTH * 
♦♦" :G0T087 

35 IFT>TITHEN3G 

48 PR I NT , .. " SWWLOS ! " = T=T I 

60 GET A* •• I F A*= " " THEN60 

70 KJi*<TI-TV60*100 

75 nnsUB200 

80 PR I NT "WW" B*" REAKTIONSZEIT '■ "K5i/100"SEKUH 

DFN" 

31 IFKX>99THEN PRINT, "MSSTTR INK MAL KAFFEE ! ! " ■ GO 
•T|-ip-? 

rJTm-M+1 = TL=TL+KX : LX-TL/'M 

85 PRINT B*"WDURCHSCHNITTSZEIT : " L'A/ 1 00 " SEKUNDEN 

M 

fl7 PRINT":ia:«!Mi!!MStiifl" 

i© PRINT" W = WE ITER MIT DIESEM TEST" 
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95 PR I NT "W N : NEUEEGINH" 

100 PR I NT "W E : SPIELENDE" 

1 1 GETfl* : I Ffl*« " " THEN 1 1 

120 IFR$="N"THEN M=@ = TL*9 : G0T018 

130 IFfl*="W"THEN18 

140 IFfl*a"E"THEN170 

150 GOTOlie 

170 PRINT":WWM«»% ,, S P I E L E -N D EMaMWWWW" 

180 END 

200 PR I NT " EM" , " SRERKT I ONSTESTX 

201 RETURN 
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Biorhythmus fur 
Commodore-64 



Biorhythmus fiir Commodore-64 

Bei der Berechnung des Biorhythmus geht man davon aus, daB der 
menschliche Korper vom Anfang seiner Geburt an, bestimmten regel- 
maBigen Schwankungen unterliegt. Diese Schwankungen verlaufen in 
Form einer Sinuskurve und beziehen sich auf 

1 . Korperliche Verfassung 

2. GefiihlsmaBige Verfassung 

3. und auf die Verfassung des Intellektes 

Starten Sie das Programm mit RUN und geben Sie Ihren Geburtstag ein. 
Z. B. 8,6,44 fiir den 8. Juni 1944. Vergessen Sie das Komma zwischen 
den einzelnen Angaben nicht. 

Dann f ragt das Programm, ob Sie den Verlauf fiir einen Monat oder die 
Werte fiir einen Tag sehen mochten. Wenn Sie z. B. M driicken, fragt 
das Programm, wann mit der Ausgabe begonnen werden soil. Wenn Sie 
die Werte ab 1 . August 83 wissen wollen, geben Sie 8,83 ein. Auf dem 
Bildschirm konnen Sie jetzt die Kurven beobachten. Die mit D be- 
zeichnete Kurve gibt Ihnen den Mittelwert aus den drei Verfassungen 
an. Also jetzt viel SpaS auf Ihrer nachsten Party. 

50 REM BIQRHVTHMUS FUER COM. 64 

100 DIMX*<31> 

105-DIMM*<12>. 

110 Mf-a>~"JRN" 

111 M*<2>="FEB" 

112 M3K3>*"MflR" 

113 M*<4)="flPR" 

114 M*f.5:.' = "MRI" 

115 M$<6>="JUN" 

116 M*<7>="JUL" 

117 M*<8>="flUG" 
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118 M*<9>="SEP" 

119 M*<10)="OKT" 

120 M*ai)*"NOV" 

121 M*<12)="DEZ" 
200 D1=2*-it/23 
210 D2=2*ir/28 
220 D3=2#tr/33 

510 PR I NT " WW«DE I N GEBURTSTAO , TRG , MOH AT . -T AHP 

5 1 1 PR I NT : I NPUT T 1 , M2 , J3 
520 I FJ3> 1 80THEN J3= J3- 1 900 



is; 



525 IFJ3<1THEN6000 

526 I FM2> 1 2THEHGOSUE6030 =. G0T05 1 



530 FORQ= 1 T0M2 : READ* = NEXTQ 

532 I FT 1 >XTHEMGOSUB6050 : G0T05 1 9 

534 I FM2=2THEN I FT 1 >28THENJ J= J3 = OO3UB607FI ■■ I FFL = 
1THENFL=0':GOTO510 

535 N1=X-T1 

536 GOSUE5000 

540 RERDW 

54 1 REABE : E=E- ( 1 AND < J3- 1 NT <■. J3/4 'J #40P» ":• ) 

542 RERDR 

543 REACT 

544 READV 

545 RERTJIJ 

546 READ I 

547 RERDO 
54S READP 

549 READA 

550 READS 

560 F 1 =N 1 +W+E+R+T+ V+U+ 1 +n+p+fl+ F, 
562 RESTORE 

630 GOTO? 10 

631 READD 

632 READF 

633 READG 

634 READI-I 

635 REAIU 

636 READK 

637 READL 

638 READM 

639 READN 

640 READS 

641 REfiDV 
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650 L1»B+F+G+H+J+K+L+M+N+B+V 

660 PI =C3-J3~1 

670 P1*P 1*363. 25 

680 IFJS="T ,, THEN4000 

690 P.1-.25 

700 Gl«INT<fll+Fl+Pl+Ll> 

705 GOTO809 

710 PRINT"MBIORHVTHMUS FUER EINEN TAG ODER 

EINEN MONRT 
715 PRINT"GEBE C7> FUER EINEN TAG, " 
720 PRINT:iNPUT"OEBE CM) FUER EINEN MONflT" ;J* 
725 IFJ*=*'T"THEN772 
730 IFJ*="M ,, THEN740 

735 PR I NT " rMMHJNERLflUBTE E I NGflBE ! " : GOTO? 1 © 
740 PRINT"MAB WflNN SOLL ICH STflRTEN? MONflT,. JflHR 
745 PRINT: INPUT C1,C3 
750 IFC3>100THENC3=C3-190O 
752 I FC 1 > 1 2THENGOSUB6O30 : G0T0748 

755 IFJ3>C3THEN6100 

756 IFJ3=C3THEN760 
758 GOTO3000 

760 IFM2>C1THEN6100 
770 GOTO3000 

772 PR I NT : I NPUT " TAG , MONflT , JflHR " ; C2 , C 1 .- C3 

773 IFC1>12THENGOSUB6030 : GOTO772 

774 IFC3>100THENC3=C3-1900 

775 IFJ3>C3THEN6108 

776 IFJ3=C3THEN730 
778 GOTO3000 

730 IFM2=>C1THEN785 

783 GOTO3O00 

735 IFT1>C2THEN6100 

795 GOTO3O00 

800 J4-J3+190S 

970 PR I NT "S 

978 PR I NT " SKP=KOERPERL I CH " 

979 PR I NT " «Q#»GEFUEHLSM . " 

980 PRINT"aiB=INTELLEKT" 
99Q PRINT ,, D=DURCHSCHNITT" 

993 RESTORE = FORQ= 1 TOC 1 : REflDX : NEXTQ : I FC 1 =2THENX 
=X~ <. 1 AND < C3- 1 NT < C3/4 > *4O0 > > 

995 L=0 
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397 
998 

1000 
1100 

1130 
1210 
1215 
1220 



GOSUB2000 
D*0 

L=L+1 

FQRZZ= 1 T03 1 •• X* < ZZ > = " " '• NEXT 

!«'$ if 1 6 'j~ " I " 

v'l«INTa3*SIN<<Gl+L>*Dl> + 16> 
V2= I NT < 1 5*3 I N < <. G 1 +L :.< *D2 :> + 16> 
Y3= I NT <. 1 5*S I N < < G 1 +L > *D3 > + 1 6 > 



1230 V4='::Vl+V2+V3>/3 



1250 
1260 
1270 
1230 
1350 
1360 
1361 
1393 
1400 
1450 

150© 

1600 

2000 

2020 
2030 
2040 
2100 
2165 

2166 
2190 
2200 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3003 
3009 

3010 

3©i2 



) = "SKS" 
.> = "B(3H" 

...JJN 



x*<vi; 
x*<v3; 

X*CV4) 

D=D+1 

IFIKX+1THEN1398 

GOTO7000 

REM 

PRINTM*<Cl); ,,,, DTflB<8>; 

FORJ= 1 T03 1 = PR I NTX* < J > ; 

PRINT 

GOTO 1000 

REM 

PRINT 

C4=C3+1900 

PR I NT " E I ORH VTHMUS FUER 

PRINT 

PRINT" SBCHLECHTH 

SCUTH" 
PRINT 
H=l 

RETURN 

IFC1-2THEN641 
IFC1*3THEN640 
IFC1=4THEN639 
IFC1=5THEN63S 
IFC1=6THEN637 
IFC1=7THEN636 
IFC1=8THEN635 
IFC1=9THEN634 
IFC1=10THEN633 
IFC1=11THEN632 
IFC1=12THEN631 
IFC1=1THEN660 



NEXTJ 



";M*<C1>J" ";C4 
SMITTELH 
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3029 

4000 
4001 



4003 

4004 

4005 

4006 

4010 

4015 

4016 

4017 

4018 

4019 

4028 

4021 

4022 

4025 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4040 

4041 

4042 

4044 

4045 

4050 

4054 

4055 

4056 

4057 

4053 

4059 

4060 

4070 



G0T0631 

RERDX : IFC2>XTHENGOSUB6050 = G0TQ772 
IFC1=2THENIFC2>28THENJJ=C3 : GOSUB6070 = IFFL 
- 1 THENFL-0 ■ G0T0772 

I FC 1 >2THEN I FC3- 1 NT < C3/4 > #409THENL 1 »L 1 - 1 
L 1 =L 1 +C2 •■ I FC3< 1 00THENC3=C3+ 1 900 
R 1= . 23 

Gl«INT<Fl+Pl+Ll+fll> 

PR I NT " HWB I ORHVTHMUS FUER " ; C2 ; M* < CD; C3 
PR I NT " SMTFIGE SE IT DEI NER GEBURT " , 1 
PRINT 

V1=SIN''2*tt*G1/'23> 
V2*SIN<2#it*G1/'28) 
V3aSIN<2#ir*Gl/33> 
111 = ''. ''.V1*15'.:h-1S::' 
U2=<<V2*15)+16) 
U3=K<V3#-15} + 16:> 
0*a>*"aWITTELB 
0*C2)="SBCHLECHTB " 
O^S^'SGUTH 
Tl = l 

IFU1=<11THENT1=2 
IF0l=>21THENTl=3 
T2=l 

IFU2^<11THENT2=2 
IFU2=>21THENT2=3 
T3=l- 

IFU3=<11THENT3=2 
IFU3=>21THENT3=3 
X 1 ~< I NT < V 1 * 1 000 ':.' ) / 1 000 
X2= < I NT < V2* 1 000 > > / 1 000 
X3*= C I NT < V3# 1 000 ) > / 1 000 
PR I NT " MMKOERPERL I CH 
PRINT"WWOEFUEHLSri. 
PRiNT"WWINTELLEKT 
V4=m+V2+Y3V3 
. U4=<V4#15)+1S 
T4=l 

IFU4*<11THENT4«2 
IFU4=>21THENT4-3 
X4= < I NT <.. V4* 1 000 > > / 1 000 
PRINT " MWDURCHSCHN I TT 
GOTO7000 



,iO*(Tl)..Xl 
;G$<T2>,X2 
;0$<T3>,X3 



;0$<T4>,X4 
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3900 IFM2-1THEN540 
5091 IFM2=2THEN541 
5093 IFM2=3THEN542 

5004 IFM2=4THEN543 

5005 IFM2-5THEN544 

5006 I FM2=6THEN545 

5007 IFM2=7THEN546 

5008 IFM2=3THEN347 

5009 I FM2=9THEN548 

5010 IFM2=10THEN549 

5011 IFM2=11THEN550 

5012 IFM2=12THEN562 

5013 RETURN 
6000 PR I NT "3" 

6005 PRINT"FflLSCHE EINOflBE! 

&0&6 PRINT 

6010 PR I NT "DPS Jfll-IR MUSS OROESSER P.LS 1990 SEIN! 

6020 GOTO510 

6030 PRINT"^W»EIN JRHR HflT NUR 12 MONfiTE M " 

6040 PR I NT : PR I NT : PR I NT : RETURN 

6050 PRINT"3fl»MDIESER MONflT HflT NUR".;X.;" TflGE ! ! ,! 

6055 PR I NT '■ PR I NT • PR I NT ■ RESTORE : RETURN 

6070 I FJJ- 1 NT >: J J/4 > *4=0THENFL=0 : RETURN 

6073 PRINT'TWWMDIESES JflHR 1ST KEIN SCHflLTJflHR ! ! " 

6080 PR I NT : PR I NT : PR I NT ■■ FL= 1 : RESTORE : RETURN 

6100 REM 

6110 PRINT"!]" 

6111 PRINT: PRINT 

6115 PRINT"DflS STflRTDflTUM MUSS OROESSER RLS 

6116 PRINT 

6120 PRINT"DflS GEBURTSBPTUM SEIN!! 

6121 GOTO710 

7000 PRINT"MXFUER EINEN NEUEN BIORI-IVTHMUS DRUEHKE 

7010 PRINT" EI NE BEL I EE ICE TASTE ! 

7020 GETfl* : I FR*= " " TKEN702O 

7030 PRINT":]" =RUN 

9000 IiflTfl 3 1 > 29 .. 3 1 , 30 ..31.. 30 , 3 1 

9910 DATA 3 1/30, 31. ,30, 31 
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Einfaches Demo 64 



Einf aches Demo 64 

Dieses ist ein einfaches Demoprogramm fur Ihre ersten Kontakte mit 

dem C-64. Geben Sie es ein und beobachten Sie den Bildschirm. 



2 REM GEBEN ZWE1 WERTE NflCHEINPNDER 

4 REM DURCH KOMMfl OETREHNT EIN. 

6 REM Z.B.10,15 UND RETURN 

8 REM BEOBACHTEN SIE HEN BILDSCHIRM 

1 POKE53280 , 1 = P0KE5328 1 > 1 : REM BOflD 

ER BACKGROUND 

20 Z=12 =■ Q-81 "-REM CHflRRCTER 

30 K-1.25 

40 S=1024 ■• 055296 : REM SCREEN & COLOR 

50 T=3 

60 INPUT "rBR<B";fl,B : PRINT "3" 

70 REM DRAW IT! 

100 FOR TH=0 TO 2#it STEP 2*tr/180 

107 R=Z#SIN<TH*T> 

11© XX =K*R*COS<fl*TH> 

115 VX -R#SIN<B*TH> 

120 P»<12+VX>*49+XX+20 

130 POKE S+PjQ : P0KEC+P,2 

140 NEXT TH 

1 50 GETfl$ : I Ffl$= " " THEN 1 50 

160 RUN 
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TrickkJste 



Praktische Hinweise fur Ihren Commodore 64 

Im nachfolgenden Teil wollen wir Ihnen einige kleine Tips und Hin- 
weise geben, die Ihnen das Arbeiten mit Ihrem C-64 erleichtern und ver- 
einfachen. 

"Programmabsturz" — Hat sich Ihr C-64 einmal, wie man so schon sagt 
"aufgehangt", lasst sich durch die RUN/STOP oder SHIFT RUN/STOP 
Taste nichts mehr zuriickholen, so hilft oft das gleichzeitige Driicken 
von RUN/STOP und RESTORE. In vielen Fallen konnte ich damit 
sogar im Monitor "abgestiirzte" Maschinenprogramme auffangen und 
einen BASIC-Warmstarterreichen. 

END — Befehl in BASIC-Programmen. Viele kennen dieses Statement 
aber die wenigsten verwenden es in ihren Programmen. Sie sollten 
einen END-Befehl ans Ende Ihres Programmes setzen, wenn Sie mit 
Cassette arbeiten und B ASIC-Programme ofter auf dem gleichen Band 
iibereinander schreiben. Fehlt ein END-Statement, kann vorkommen, 
daB beim Einladen ein friiher auf dem gleichen Band abgelegtes Pro- 
gramm noch mit eingelesen wird. 

Teilen durch ganze Zahlen und Berechnung des Restes 

Bei Programmen fiir hochauflosende Grafik und Basisumwandlungs- 
routinen braucht man oft sogenannte Modulo Teiler. Hier ist ein kleines 
Beispiel: 

108 input"dividend".;d 
110 input"divisor";do 
126 Q=iHT<ri/no> 

130 R=D-D0*Q 

140 PRINT"HIER IST DIE LOESUNG"; 

150 PR I NT "QUOTIENT Q="JQ 

160 PRINT"REST R=",R 

170 END 
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1st eine Zahl gerade oder ungerade ? 

Die schnellste Methode, urn herauszufinden, ob eine Zahl gerade oder 

ungerade ist, fiihrt iiber eine logische Verkniipfung. 

290 IHPUT"ZflHL";Z 

210 X =Z AND 1 

220 IF K=0 THEN 240 

23Q PR I NT "D IE ZflHL IST UHGERRDE" 

•GOTO 250 
240 PR I NT "Ii IE ZflHL IST GERADE " 
258 END 



Abfragen der Eingabe mit Hilfe des GET-Befehls 

5 PRINT"BITTE EINE EELIEEIGE TASTE" 

7 REMGET f\t-lF fl$0""THEN 10 

10 GET»fl*:IF fl$=""GOTO 10 

15 FORI=1TO50 

20 PR I NT I; 

30 NEXT I 

40 G0T05 

5 PRINT"EITTE EINE EELIEEIGE TASTE" 

? GET fl$-IF fl$<>""THEN 10 

10 GET fi$=IF A$=""GGT0 10 

15 FORI=1TO50 

20 PR I NT I; 

30 NEXT I 

40 G0T05 



Wenn man in Programmen den GET-Befehl verwendet, kann es 
manchmal problematisch werden, da der C-64 die zehn zuletzt ge- 
driickten Tasten speichert. Probieren Sie es einmal aus, indem Sie zuerst 
das erste und dann das folgende Programm eingeben und starten. Wenn 
Sie beim ersten Programm eine Taste kurz hintereinander mehrmais 
drucken, wird die Schleife auch mehrmais ausgefiihrt. Beim zweiten 
Programm wird die Schleife nur einmal ausgefiihrt, egal wie oft Sie 
die Taste drucken. 
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Wiederholfunktion auf jeder Taste 

Sie konnen bei Ihrem C-64 leicht eine Repeat-Funktion auf alien Tasten 
einfuhren, wenn Sie in die Zelle 650 die Zahl 128 hineinschreiben. 

POKE 650,128 

Listschutz 

Sie konnen Ihr Programm gegen unbefugtes auslisten schiitzen, indem 

Sie einen Zeiger in der 1 . Page Ihres C-64 abandern. 

Nach POKE 775,200 

lasst sich ein Programm im Speicher nicht mehr listen. 

Mit POKE 775,199 

wird der Schutz wieder aufgehoben. 



PRINT PEEK (197) Information 

Die Zelle 197 in der Zeropage enthalt immer das zuletzt gedruckte 
Zeichen. Leider ist von diesem Zeichen weder der Hexwert noch der 
Dezimalwert in den Tabellen enthalten. Dies kommt daher, daB es sich 
bei dem Inhalt von Zelle 197 urn Werte handelt, die bei der Tastatur- 
dekodierung entstehen und nichts mit ASCII oder POKE Werten zu tun 
haben. 

Interessanterweise sind die SHIFT-Werte und die Werte ohne gedruckte 
SHIFT-Tastegleich. 

Sie konnen sich die jeweiligen Werte in dezimal ansehen, indem Sie 

100 PRINT PEEK(197):GOTO 10 

und RUN eingeben und die Ergebnisse auf dem Bildschirm notieren. 

BASIC im RAM 

Da der C-64 den gesamten Adressenbereich mit RAM belegt hat, und das 
BASIC in ROM so adressiert ist, daS es unter diesem RAM-Bereich 
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BFFF 




0000 



angesiedelt ist, laBt sich das ROM-BASIC unter bestimmten Voraus- 
setzungen abschalten. Vorher muB es erst in den RAM-Bereich geladen 
werden. Dies geschieht mit folgendem Programm: 

5 FOR X=40960 TO 49151 
10 Y=PEEK(X) 
20 POKE X,Y 
30 NEXTX 
40 END 

Nachdem Sie dieses Programm mit RUN gestartet haben, konnen Sie 
das ROM-BASIC mit 

POKE 1,54 

abschalten. Jetzt liegt BASIC in RAM ab AOOO - BFFF. Sie konnten 
jetzt dieses BASIC nach eigenen Wiinschen modifizieren und z. B. 
deutsche Statements einbauen. Zu diesem Zwecke konnen Sie ab A09E 
— A388 in den Tabellen fur die Befehlsworte und Fehlermeldungen Ihre 
Experimente durchfuhren. Das END-Statement steht z. B. an der 
Adresse A09E wie folgt 

A09E 45 E4 END 

AOAO C4 46 4F D2 E4 45 58 D4 FOR NEXT 

POKEN Sie jetzt einmal verschiedene Werte in diese Zellen, und 
beobachten Sie genau, wie sich der END Befehl in Zeile 40, des im 
Speicher befindlichen Programmes, verandert. Sie konnten jetzt die 
Werte so andern, daB das END-Statement durch ein AUS-Statement 
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ersetzt wird. 

A09E = 41118dez 
A09F=4119dez 

Wer einen Supermonitor 64 hat, kdnnte das geanderte BASIC sogar auf 
Cassette abspeichern und spater wieder einladen. 



Abfragen der Funktionstasten beim C-64 

Im mitgelieferten Handbuch und im Reference Manual war iiber die 
Anwendung und Programmierung dieser Tasten nichts zu finden. 
Eine gute Beschreibung fand ich im neuen "Commodore Power Play" 
Magazin, Fruhjahr 1983. Hier eine kurze Zusammenfassung der 
wichtigsten Eigenschaften. 

I.Die acht Funktionstasten (4 Tasten mit SHIFT und nicht SHIFT) 
sind programmierbar. 

2. 1,3,5,7ohneSHIFT 

3. Die CHR$(X) Werte fur die einzelnen Funktionstasten finden Sie im 
mitgelieferten Handbuch in der ASCII und CHRS Tabelle ab 
CHR$(133). Achtung! Die Reihenfolge ist nicht entsprechend den 
Funktionstasten. 

Die Funktionstasten konnen wie folgt programmiert werden: 

300 PRINT'TUER START DRUECKE TASTE Fl" 

310 GET T$:IF T$=""THEH 318 

320 IF T$OCHR*<133>THEN GOTO 310 

330 PRINT"fiHfl HIER GEHT ES LOS"' 

340 PRINTOUT TfiSTE F5 GEHT ES WE ITER" 

350 GET T$:IF T$="" THEN 350 

360 IF T$=CHR*<135) THEN GOTO 3:38 

370 GOTO 348 

380 PRINT"flHfl UND HIER GEHT ES WE ITER" 

330 END 

Eine weitere Moglichkeit.die Funktionstasten abzufragen ist das Nach- 
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sehen in Zelle 197 Oder 203 dezimal in der Zeropage des C-64. Wie 
schon angedeutet, wird hier kein Unterschied zwischen SHIFT und 
UNSHIFT gemacht. Also konnen nur vier Funktionen abgefragt 
werden. 

C-64 Funktionstaste Wert in 197 Oder 203 







dez 


hex 


keine Taste gedruckt 


64 




40 


F1/F2 


39 




27 


F3/F4 


47 




2F 


F5/F6 


55 




37 


F7/F8 


63 




3F 



Eine Abfrage wiirde dann wie folgt aussehen: 

406 PRINT"ABFRflGE FUNKTIONSTASTE MIT 

410 PR I NT " PEEK U 97) ODER PEEK < 203)" 

426 IF PEEK-:: 197) =39 THEN GOTO 450 

430 GOTO 420 

450 PR I NT "AHA IT WORKS" 

460 END 



Alles zusammengefasst: 

5 PRINT"BITTE EINE BELIEBIGE TASTE" 

7 GET fl$'IF fl$0""THEN 10 

10 GET fl$:IF fl$=""G0T0 10 

15 FORI=1TO50 

20 PR INT I. ; 

30 NEXT I 

40 G0T05 

100 INPUT "DIVIDEND"; D 

110 IHPUT"HIVISGR";DO 

120 Q=INT(H/D0) 

130 R=D-D0*Q 

140 PRINT "HIER 1ST DIE LQESUNG"; 

150 PR I NT "QUOTIENT G=".;Q 

160 PR I NT "REST R=".:R 

170 END 

200 INPUT"2flHL",'Z 
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216 X =Z AND 1 

226 IF K=Q THEN 248 

230 PRINT "D IE 2AHL 1ST UNGERRDE" :GOTO 250 

246 PRINT "DIE ZflHL 1ST GERADE" 

250 END 

300 PRINT'TUER START DRUECKE TASTE Fl" 

310 GET 1$-1F T$=""THEN 310 

320 IF T$OCHR$< 133) THEN GOTO 310 

330 PRIHT"flHR HIER GEHT ES LOS" 

340 PR I NT "MIT TASTE F5 GEHT ES WE ITER" 

350 GET T*=IF T$="" THEN 356 

360 IF T$=CHR*<135) THEN GOTO 388 

370 GOTO 340 

380 PR I NT "AHA UND HIER GEHT ES WE ITER" 

390 END 

400 PRINT"AEFRAGE FUNKTIONSTASTE MIT " 

410 PR I NT "PEEK (197) ODER PEEK < 203)" 

420 IF PEEK (197) =39 THEN GOTO 450 

430 GOTO 420 

450 PR I NT "AHA IT WORKS" 

460 END 



Einfache Methoden zum Koppeln von zwei BASIC-Programmen 

Im Commodore 64 sind in den Zeropageadressen 43 — 56 Anfang und 
Ende sowie String- und Felderbereich eines BASIC-Programmes genau 
festgelegt. 

Diese Adressen kann man nun so verandem, daB hintereinander zwei 
verschiedene BASIC-Programme in den Speicher geladen werden 
konnen. Die Zeilenzahlen des zweiten, nachzuladenden Programmes 
miissen groBer sein, als bei dem zuerst geladenen Programm. 

Hiergleich ein Beispiel: 

Die Adressen 43 und 44 legen den Programmstart und 45 und 46 den 

Beginn der Variablen fest. 

Wir geben also zuerst einmal ein Testprogramm ein, welches wir spater 
vom Cassetten recorder her einladen und an ein im Speicher befindliches 
Programm anhangen wollen. 
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Geben Sie also folgendes Programm in Ihren C-64 ein, und speichern Sie 
es auf Cassette oder Disk. 

60 REM TEST 2 

70 PR I NT "DAS 1ST TEST 2" 

30 FOR :=•=:= 1 TO -5000 = NEXT 

90 RiiTn 10 

100 END 



Notieren Sie sich jetzt noch die Inhalte der Zellen 43 hex und 44 fiir 
spater, wenn wir die Zeiger wieder zuriicksetzen miissen. 

Nun geben wir das folgende Programm ein: 



10 REM TEST 1 

20 PR I NT "DIES 1ST EIN TEST" 

30 FOR X=l TO 500: NEXT 

40 PRINT":]" 

50 END 



Jetzt wird der Anfang von BASIC auf das Ende dieses Programmes 
gelegt. 

Wir erreichen dies, wenn wir im Direktmodus die Anfangsadressen fiir 
den Variablenbereich als BASIC-Anfangsadresse eingeben. BASIC baut 
seine Variablen direkt am Ende des BASIC-Programmes auf. Da die 
letzte BASIC-Zeile durch zwei Nullbytes abgeschlossen wird, miissen 
wir diese beiden Bytes noch abziehen. 

Geben Sie also folgendes ein: 

POKE43,PEEK(45)-2 
POKE 44, PEEKI46) 

Wobei 45 und 46 die Zeiger auf den Anfang der BASIC-Variablen sind. 

Laden Sie jetzt das Programm von Cassette und geben Sie die alte 
Anfangsadresse wieder ein. 
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POKE 43,1 
POKE 44,8 

Priifen Sie mit LIST und RUN, ob die beiden Programme jetzt ver- 
bunden sind und das neue Programm auch richtig arbeitet. 

Auffinden des Programmendes eines BASIC -Programmes 

590 X=2048 

510 REM 

520 M=0 

538 V<M>=PEEKOO 

540 X=X+1 ■ M=M+ 1 

550 IF M=3 THEN GOSUB 690 

570 GOTO 530 

600 PRINT"PROGRflMMENDE 1ST ";X 

610 END 

690 IF V<0>+V<1)+VC2>=0 THEN 600 

700 X=X-2 : M=9 •■ RETURN 



Wer keinen Maschinensprachenmonitor hat, kann das oben gezeigte 
Programm eingeben und nach dem Ende des Programmes suchen. Dieses 
Programm priift, ob drei aufeinanderfolgende Zellen den Wert haben 
und druckt dann die momentane Adresse aus. Dieses Programm muB an 
das zu suchende Programm angehangt werden. Wer es genau wissen will, 
muB zuerst den Platz bestimmen, den unser Testprogramm braucht 
und kann diesen dann vom Gesamtwert abziehen. 

Wir haben bereits gelernt, daB man mit PEEK (45) und PEEK (46) das 
Ende einfacher bestimmen kann. Dieses Programm erlaubt Ihnen 
jedoch auch das Aufsuchen von TOKENS und Zeilennurnmern. 



Maschinenprogramme wie BASIC-Programme abspeichern 

Wer einen Maschinensprachenmonitor hat und Maschinenprogramme in 
BASIC ablegen will, kann den Code ab 0801 hex leicht in BASIC auf 
Cassette Oder Disk ablegen, indem er in BASIC die Maschinenadresse 
mitz. B. 
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10 SYS 2448 

aufruft und dann dies in BASIC abspeichert. Wer seine Maschinen- 
programme an einer anderen Stelle im Speicher hat, und nicht am 
regularen BASIC-Start, kann den BASIC-Anfang in Zelle 43 und 44 
andern und dann in BASIC abspeichem. Nachfolgend ein kleines 
Beispiel, wie man ein Maschinen-Programm einfach in den Speicher ab 
0807 schreiben, mit drei Nullbyte abschlieBen und auf Cassette 
speichern kann. 

In BASIC habe ich drei Zeilen mit beliebiger Zeilennummer und REM 
Befehlen eingegeben. Z. B. 

10 REM XXXXXXXXXX 
20 REM XXXXXXXXXX 
30 REM XXXXXXXXXX 

Jetzt geht man in den Supermon 64 und sieht siqh den Speicher ab 
0800 bis 083E einmal an. Man erkennt jetzt wie die BASIC-Zeilen 
abgelegt sind. 

0800 = 00 Anfang einer Zeile 

0801=12 i Zeiger auf die nachste 

0802 = 08 l Zeilennummer 

0803 = 0A i 10 = 

0804 = 00 < Zeilennummer 

0805 = 8F REM 

0806 = 20 Leerzeichen 

0807 = 58 Hier fangt das X in der R EM- 

Zeilean. 

Ab hier geben wir nun das folgende Programm ein: 

M 0Sfifi.8S3F ._ .. -. -r- -. -- 
•0800 00 12 MO MH MM *F 2M Hy 

•0888 93 20 D2 FF fl9 11 29 D2 

:0810 FF FI2 20 SR 20 D2 FF E8 

: 0818 E9 68 Ii8' F 7 60 4C 87 08 

:0820 00 68 80 34 88 3C 00 8F 

:0828 20 58 58 58 58 58 58 58 
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•0350 65 68 32 QQ 93 22 44 41 

=0858 53 20 49 53 54 26 42 41 

: 0860 53 49 43 22 00 6E 03 3C 

; 0863 00 80 00 00 00 58 53 58 

:0878 58 58 58 58 58 58 58 58 



Wir suchen uns jetzt den Anfang der Zeile 20. Das Ende der ersten Zeile 
ist durch das erste Nullbyte gekennzeichnet. Zeile 080B hex. Darauf 
folgen wieder Zeiger, Zeilennummer, Befehl und das Leerzeichen 20. 
Nach diesem Leerzeichen beginnen die Werte fur X (ASCII X = 58). Ab 
hier geben wir jetzt unser Maschinenprogramm ein. In Zeile 0828 
springen wir an den Anfang zuruck 4C 1708 (JMP 0817). 

Dann folgt das Nullbyte, welches uns sagt, daB unser Maschinenpro- 
gramm genau in den vorbereiteten Platz passt. Dann folgt bereits die 
nachste Zeile. 

Um spater zu testen, ob das eingelagerte Maschinenprogramm auch mit 
BASIC arbeitet, konnen Sie noch die Zeile 45 einfiigen, welche das 
Maschinenprogramm dann auch noch aufruft. 

BASIC versucht beim Listen des Maschinenprogrammes, den Hexcode 
unseres Maschinenprogrammes als Befehle zu interpretieren. Wir 
konnen diese Zeile unterdriicken,indem wir den Zeiger 

10 REM TEST 

20 REM STEPLOflD DIMwSTEP dimtnew run 
d i rn To I r s a. 1 ,- 1 •=■ i np u t # - 1 

30 REM ENDE MASCHINENSP 

46 PR I NT "HELLO" 

45 SVS2071 

56 PRINT"DHS IST BASIC" 

60 END 

in Zeile 1 auf Zeile 2 so verstellen, daB er auf die 3. Zeile (Zeile 20) 
zeigt. Siehe Speicherzelle 0802 und 0803. Dort schreiben wir einfach 
anstelleOC08 2C08hinein. 

Prufen Sie das Programm von BASIC aus mit SYS 2071 Oder mit RUN. 
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Aufheben des New Befehls 

Wer aus Versehen bei seinen Commodore 64 einmal NEW eingegeben 
hat und das Programm doch noch benotigt, kann sich leicht helfen, 
indem er mit Hilfe eines Monitors die ersten drei Bytes des BASIC- 
Programmes ansieht. Im C-64 werden BASIC-Programme meist ab 
0800 hex abgelegt. 



10 REN 


DEMO 












20 PRINT"HRS 


1ST EIN TEST" 




30 PR I NT" RECOVER HEW" 








40 END 
















RERBV. 
















. '0880 


80 


0C 


08 OR 


00 


8F 


20 


44 


. : 0308 


45 


4D 


4F 00 


24 


08 


14 


00 


. =0810 


99 




44 41 


53 


2Q 


49 


53 


. : 0818 


54 


20 


45 49 


4E 


20 


54 


45 


. : 0820 


53 


54 


22 00 


o r 


08 


IE 


00 


. .: 0328 


99 


O *"? 


52 45 


43 


4F 


56 


45 


. : 0330 


52 


20 


4E 45 






00 


3D 


. : 0833 


08 


•™i i~i 


00 80 


00 


00 


00 


5F 


. : 0840 


08 


01 


00 20 


20 


20 


c~c 


56 



0S0O 00 00 00 OR 00 8F 20 44 

0808 45 4D 4F 00 24 03 14 66 
0310 99 22 44 41 53 20 49 53 



Nach New werden die Adressen 802 und 803 auf Null gesetzt. BASIC 
tut einfach so, als ware hier das Ende des Programmes. Wir suchen uns 
jetzt die Anfangsadresse der nachsten BASIC-Zeile. Sie folgt unmittel- 
bar nach dem ersten Nullbyte. 

080C ist die Anfangsadresse der zweiten Zeile. Wir geben Sie einfach 
anstelle der beiden Nullbytes mit dem Monitor wieder ein, gehen mit X 
nach BASIC und geben List ein. Ein kleines Testprogramm lieB sich 
recht einfach wieder listen und auch ausfiihren, ohne daB wir noch 
BASIC-Zeiger in der Zero Page abandern mussten. 
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Die RS232 Schnittstelle 

Die RS232 Schnittstelle im Commodore 64 hat einen kleinen Fehler. 
Bei der Aus- und Eingabe besitzt der C-64 einen Zwischenspeicher 
(Puffer). Dieser Puffer kann wahrend des Schliessens noch gefiillt sein. 
Die darin enthaltenen Zeichen wiirden verloren gehen, wenn man nicht 
die folgende Abhilfe schafft. 

Bei der Ausgabe muB deshalb vor dem CLOSE Befehl gewartet werden, 
bis die beiden Zellen 669 und 670 dez (0290 und 029E) aneinander 
gleich sind. Gleichheit dieser beiden Zeiger signalisiert einen leeren 
Puffer. 

Losung: 

a) BASIC 

10 IFPEEK(669)OPEEK(670)THEN 10 

b) Maschinensprache z.B. 
WAIT LDA S029D 

CMP S029E 
BNE WAIT 
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Welt-Uhr 



Welt-Uhr 

Dieses Programm kann die Uhrzeiten der wichtigsten Stadte der Welt 
angeben. 

Als erstes wird die Eingabe von Monat, Tag und Jahr erwartet, danach 
mussen Sie die momentane Uhrzeit eingeben. 

Falls Sommerzeit herrscht, sollten Sie auf die Frage Sommerzeit mit JA 
antworten. 

Bei der Zeitzone geniigt es in unseren Breiten "M" fur Mitteleuropaische 
Zeit zu driicken. Nach Eingabe all dieser Daten wird eine Weltkarte mit 
den wichtigsten Stadten ausgedriickt. Am linken unteren Bildschirm- 
rand erscheint die eingestellte Zeit, unter den Stadtenamen die jeweilige 
Ortszeit. Der Stand der Sonne wird durch eine blinkende Kugel ange- 
zeigt. Sie konnen die Zeit durch driicken von "W" wan rend des Pro- 
grammlaufs andern. Am oberen Bildschirmrand wird dann die neue 
Zeiteingabe erwartet. 

1 CITV*=" = PUBLIC DOMAIN" 

2 B0WN=7 

3 ACR0SS=7 

4 POKE53280 J l:POKE53281..i:REM 64 

5 PRINT"ir3W«fiW«KD»WtW»»IBITTE DATUM EINGEBEN 

9 0PEN1,3 

10 DIM DM<12):fX**"» 



11 PRINT:PRINT:PRINT"MONfiT TAG JAHR 

12 PRINT" I I II II 

13 PRINT" I * •, ! I , ' I 

14 PRINT" * , Mil , ' 

15 PRINT" I I I 1 1 1 

16 PRINT" 

17 PRINTSPCC7) : 
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18 INPUTDT* 

50 P0KE54296, 15 = P0KE54273, 66 ■ P0KE54278, 176 = P0KE54277, 12 

lee print " nmmmtnwnwBi tte die zeit eingebeni 

110 PRINT: PRINT :PRINT"3TUNDEN MINUTEN SEKUNDEN 
120 PRINT" II II II 

130 PRINT" I ^- , | | , ' I 

140 PRINT" ' ■. I I II * ' 

150 PRINT" I I I I I I 

160 PRINT" 

170 PRINTSPC<7): 

188 INPUTLT* 

185 GOSUB 12000 

190 GOSUB 11 000 

225 GET B*=IF B*="" GOTO 225 

230 IF B*="M"THEN B=230000 = N=23 

247 IFB*="fl" THEN GOSUB11050 

250 NXsB:T=VflL(LT*)+B-DS*10000: IFT>240000THENT=T-248000 

255 BX=B/ 10000 

260 T$="000000"+MID*<STR*«rT.V.2> 

265 TI$=RIGHT$<T*,6> 

300 MM$=LEFT*<DT*,2> :DBf=MIBf <BT$,3,2> : VV*=RIGHT$(DT*,2> 

310 MM* VflL ( MM* ) = DD= VflL ( DD* > : W* VflL < VV$ > 

320 IFMM=1THEN390 

330 F0RKT012 

340 READ DM(I) 

345 NEXTI 

350 IF V/4=INT<V/4)THEN BM<2>=29 

368 FOR IxlTOMM-1 

370 JD*JD+DM<I) 

380 NEXTI 

390 JWD+DD 

409 DflTB 31, 28, 31, 30, 31, 30.. 31, 31. -30, 31, 30, 31 

410 IFMM=6THENQ=11 

420 IF <MM=7)0R<MM=5)THENQ=12 
438 IF <MM=8>0R<MM=4>THENQ=13 
440 IF <MM=9>0R(MM=3>THENQ=14 
450 IF <MM=10>OR<MM=2)THENO=15 
460 IF <MM=11>0R<MM=1>THENQ=16 
470 IF (MM=12?THENQ=17 
480 IF <Q=0)THENSTOP 
5000 PRINT":! 

5040 PRINT" \ \ i ■ 

5050 PRINT"| | Mi WELT-UHRi 31 ■! 
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II ; 

50S0 PRINT"! I JN T i i i j— u< l" 
5870 PRINT"! ! IB M = SONNE / I"; 

5080 PRINT"! ■ I / n /".; 

5090 PRINT"! I L I 1 / 

5100 PRINT"! / L//~ / 

5110 PRINT"\ / n Jl_y /' 
5120 PRINT" \ / -H / / 

5130 PRINT" \ _/ J / ! 

5140 PRINT"*- \r~ll r I 

5150 PR I NT" HON, i\ '■ ^AVl \ i 
5160 PRINT" I — \ u ' - / I I! 

5170 PRINT"- - I - - \ 1 K J 1 1- 

5180 PRINT" I \ I K J 1 1 

5190 PRINT" I I \ ^A /VJ ■> 

5200 PRINT" \ / 1 / V \ 

5210 PRINT" \ / I 

5220 PRINT" I / \ I 

5230 PRINT" ! / \ / /""^ 

5240 PRINT" [/ " \ //";"»" 

5300 pRm m mmamiB.F.in&mi.v *mwLomm*nnwnm 

tokyo 

5305 P r i nt " 3EEEEEEEWIWMI WiiWMiWiKSInuenchen " 

53 1 P r i r.t " 3!ftBfcfeBfcftEfcfeBfcftfcfcfcB »HH»iiH- i o»tt»»teE!< ap sta 

dt sydney ^ 

5320 P r i nt " 9EE£EElBEEE^ilMII*i»»B Wi»W»i»l J erusa 1 emSEEl 

dacca 

5500 H0*=LEFT$<TI$,2) :H0=VfiL<H0$):Hl=H0+19: IFHK0THENH1=H 

1+23 

5505 H1=H0+16+DS:IFHD23THENH1=H1-24:REM SflN FRRNCISCO 

5507 HH=H0+14:IFHH>23THENHH=HH-24:REM HILO 

5508 HX«H0-BX+DS-IFHX<0THENHX=HX+24-REM LOCAL 
5510 H2*H0+19+DS:IFH2>23THENH2=H2-24:REM NEW YORK 
5515 H3=H0+21--IFH3>23THENH3=H3-24:REN RIO 

5520 H4=H0+2:IFH4>23THENH4=H4-24:REM JERUSALEM OR CfiPETOW 

N 

5525 H6=H0+9:IFH6>23THENH6=H6-24:REM TOKYO 

5530 H7=H0+10-IFH7>23THENH7=H7-24:REM SYDNEY 

5535 H8=H0+6 ; IFH8>23THENH8=H3-24:REM DACCA 

5536 H10=H0+l:IFH10>23THENH10=H10-24:REM MUENCHEH 
5533 H9=H0:IFH9>23THEHH9=H9-24:REM LONDON 

5539 mt=$TR$<m> ■■m$*RiGHT$(m$,2yH0$=MmT*<$Tm<:m> ,2 
> 
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5540 H2*=R I GHT* < STR* < H2 ) , 2 > : H3*=R I GHT* <■. STR* < H3 ) , 2 > : H4*=R I 

GHT*<STR*<:H4>..2> 

5545 HH*=RIGHT*<STR*(HH>,2> 

5548 HX*=RIGHT*<STR*<HX>,2> 

5550 H5*=RIGHT$<STR*<H5>,2> :H6*=RIGHT*<STR*<H6>,2> :H7*=RI 

GHT*<STR*CH7>..2> 

5555 H3*=RIGHT*<STR*<H8>,2> 

5558 H9*=RIGHT*<STR*.rH9>..2> 

5559 H10f=RIGHT*(STR*(H10),2> 

5560 MM*=MIB*(TI*,3,2> :.SS*=RIGHT*ai*,2> 

6080 PR I NT " 3JWBWWSWM" i H 1 * i " ■ " ; MM* ; " WW!" ; H2* ; " = " ; MM* 

6020 PR I NTTRB ( 1 8 y; " a" ; H9* ; " ■• " ; MM* ; " SKIIII" .; H 1 6* ; " = " .; MM* 

6021 PRiNTTflB<35);"na M ;H6* ;"■•".; mm*; 
6822 PR I MTHH* .;":".; MM* 

6023 PR i nt " mtma m mmmmm$r .; tab < s > ; H3* .; " : " ; mm* .; 

6024 PRINT" gmtliPDMDM" .; H4*J " : " ; MM*.: 

6025 PRINT" 3MK»»ftl»»»r ; H?*.; " = " .; MM*.; "i" 

6026 pr i nt " mmmmmmsi" •, tab < 23 > .; H4* ; " = - .; mm* ; 

6027 PRINT "Maw ;H8*.; " : " ;MM*.: "H" 

6028 GOSUB8000 

6038 BB=<H0<0>OR<H0>=3> 

6031 B=<H0>=0>fMKH0<3> 

6032 PRINT"l«IMnilHmomr > ; 

6833 IF <H0>=20>OR(B>THEN PRINT" (UEBER DEM PRZIFIK>i" =G0 
TO 6035 

6034 PRINT"! I / n /" 

6035 IF (H0<20)flND<BB>THEN PRINT"i»»ll»WiiMW 

11 

6040 V=2*<H0-3> 

6041 IFV=0THEN V=V+1 

6042 IFV>=12THEH V=V+2 

6043 IFV>=32 THEN V=V+3 

6044 IF V=37THEN V=33 

6045 X2=39-V 

6076 IF ( HHOH0> AND <X2>39> THEN 7050 

6077 IF (HHOH0>flND <X2<=0)THENPRINTLEFT*(CC*,Q+l>"«i"TK* 
: GOTO7050 

6078 IFX1=X2GOTO6095 

6079 I FX 1 O0THENPR I NTLEFT* •; CC* , 0+ 1 > TAB < X 1 ) TK* : PR I NT " 1" .; 

6080 PRINTLEFT*(CC*..Q+1>SPC<X2>; : GET#1,TK*:PRINT"T 
6895 PR I NTLEFT* ( CC* .. Q+ 1 > SPC < X2 > "Oi " .: 

7000 P0KE54276, 17 : FOR ZZ=1TO50:NEXTZZ : POKE54276,0 
7010 PRINT"in§i"; 
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7011 X1=X2 

7012 HH=H0 

7050 GETCH* : IFCH*="M"THENGOSUB13000 

7100 GOTO5500 

8000 PRINTLEFT*<CC* , DOWN+i > TAB (ACROSS) 

3010 print n aaMiimMi»dM^^ 

8020 PR I NT " MsS" ; HX* J " : " ; MM$ .: " : " ; SS* i " !" ; " < ZZ= " ; N ; " ) I 

II • 

i 

8030 IF DS THENPRINT»<SZ>".; -GOTO 8050 
8040 PRINT" <NZ>"; 
8050 PRINT"SM" 
8060 RETURN 
10040 INPUTN 

10050 B=N*10000 

10060 RETURN 

11000 PRINT'TMSMaHilMtmEEITZONE EINGEBENf" 

11810 PRINT :PRINT"DRUECKE 311 FUER MITTELEUROPflEISCHE ZEI 

T 

11045 PRINT :PRINT"FALLS ANDERE ZEIT GEWUENSCHT , BITTF SR 

EINGEBEN": RETURN 
11050 PRINT"3BITTE ANZRHL HER STUNDEN EINGEBEN, 
11068 PRINT :PRINT"DIE ZUR GREENWICH-ZEIT RICHTUNG WEST 
11070 PRINT :PRINT"BAZUADDIERT WERDEN MUESSEN , UM DIE 
11088 PRINT .:PRINT"LOKflLZEIT ZU ERHALTEH 
1 1 090 PR I NT : PR I NT " ( Z . B . GROENL ANB=3 , JAPAN* 1 5 , MUENCHEN=23 > 

11100 INPUTN 

11110 B=N* 10000 

11120 RETURN 

12080 REM DAVLIGHT SAVINGS 

12010 PR I NT "WW" 

12020 PRINT"SOMMERZEIT CJ/N>?" 

12030 GET BS* : I F DS*="" GOTO 12830 

12040 BS=0 

12050 IF BS$="J"THEN BS=1 

12060 RETURN 

1 3006 INPUT"»»»»W»M»IWiiW" ; LT$ 

13100 PRiNT»:<»i»iiiii»iiiii»»»i 

13250 B=NX : T=VflL(LTf >+B-DS*10000 : IFT>24O00CiTHENT=T-240000 

13255 BX=B/ 10008 

1 3260 T i = " 008800 " +MI B* ( STR$ < T > , 2 > 

1 3265 T I *=R I GHT$ ( T$ , 6 > = RETURN 
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Duett von Bach 



Duett von Bach 

Dieses Programm liefert Ihnen ein Musikstiick. Alles was Sie zu tun 
haben, ist das Programm richtig einzugeben und mit RUN starten. Es 
zeigt Ihnen, welche Musik in Ihrem C-64 steckt. 



10 PRiH7''nmmmm9im&wmmwto»9*mtE.ftCH duet" 

1 Q0 H(l) =54273 : L < 1 ) -=54272 : W <. \) =54276 = R < 1 > =54277 = S 
<1> =54278 

119 H < 2 > =54280 : L < 2 > =54279 = W < 2 > -54283 = fl < 2 > =54234 : S 
i' ■"* s i =54' , S5 

120 POKE 54296, 15= REM VOLUME 
122 : 

125 REM SET VOICE 1 

130 WX<1>*33 = REM WAVEFORM 

132 Fl?i<l>= 9 :REM ATTACK DECfiV 

134 S/i<l>= 0:REM SUSTAIN RELEASE 

1 35 P0KE54275 , 5 : P0KE54274 , © : REM PULSE 

136 : 

148 REM SET VOICE 2 
142 WK<2)=65 
144 RK<2> = 9 

146 S>:<2)= O 

147 P0KE54282,5:P0KE54281,0 : REM PULSE 

148 : 

190 T(l)=l :TC2>=i:REM SET TIMERS 

192 = 

199 : 

300 TCO =T < 1 •> - 1 : T (. 2 > =T •:: 2 > - 1 : REM DECREMENT T I MERS 

340 IF T<O>0 THEN GOSUB1400 : 00T0360 

350 IF T<1)= THEN V=l'-GOSUE 10OO 

355 IF T<2»0 THEN GOSUB14O0 = G0T0362 

360 IF T<2> = THEN V=2 = GOSUB 1000 

362 POKE W(1)..WK(1) :POKE W<2> , W/.<2> ■ REM TURN ON B 

OTH VOICES TOGETHER 
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370 GOTO 306 

999 : 

1000 REM RESET VOICE V 

1010 POKE A < V ) , : POKES •:. V > , : POKEW < V > , : POKE H < V ) , 

0:POKEL<V>.. O 

1 020 READ HK < V > , L"i < V ) , T < V > • I FHK •' V ?•' =~ 1 THENGOSUB 1 2 

00 : FORX- 1 TO 1 000 : NEXT '■ RUN 

1 030 POKE H < V ) , HK < V > : POKEL < V > , LX < V > 

1 040 POKE B < V > , RX < V ) = POKE S < V > , S>i < V > 

1070 RETURN 

1200 REM TURN OFF ALL VOICES 

1210 FOR V=l TO 3 

1 220 POKE P. < V > , O = POKES < V > , O : POKEW < V > , '• POKE H < V > , 

0:POKEL<V>, O 

1230 NEXT V 

1248 RETURN 

1250 : 

1399 '• 

1400 REM TIME DELAV LOOP 
1410 FOR J=l TO 40= NEXT J 
1420 RETURN 

1425 •■ 

2000 DATA 0,0, 12S 

2010 DATA 19, 63, 2,21, 154, 2, 22, 227, 2, 25, 177, 2, 28, 2 

1 4 , 4 , 38 , 1 26 , 4 , 36 , 85 , 4 

2020 DATA 28 , 2 1 4 , 4 , 2 1 , 1 54 , 4 , 25 , 1 77 , 4 

2025 : 

2030 DATA24 , 63 , 4,19 , 63 , 4 , 34 , 75,12 , 32 , 94 , 2 , 28 , 2 1 4 , 

2,32,94,4,25,177,4 

2035 : 

2040 DRTfl 21,154,4,25,177,4,30, 141,4, 19,63,4, 18,4 

2,4, 28, 214, 4, 19, 63, 4, 25, 177, 4 

2045 

2050 DRTfl 22 , 227 , 8,21,154, 8 , 1 9 , 63 , 2 , 1 8 , 42,2,19 , 

63,2,21, 154,2,24,63,2 

2060 DRTfl 27 , 56 , 2 , 28 , 2 1 4 , 2 , 32 , 94 , 2 

2065 REM 5 

2070 DRTR 28,214,2,34,75,2 

2088 DflTfi 32,94,2,32,94,2 

2O90 DATA 34,75,2,28,214,2 

2 1 00 DATA 38 , 1 26 , 2 , 32 , 94,2 

2110 DATA 43 , 52 , 4 , 34 ,75,2, 32 , 94 , 2 
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2 1 28 DRTR 57 , 172,4 , 34 , 75 , 2 , 38 , 1 26 , 2 

2 1 30 DRTR 54 , 1 1 1 , 4 , 43 , 52 , 1 6,43 , 52 , 4 , 32 , 94 . 4 . 38 . 1 2 

6,4 

2135 REM 6 

2140 DRTR 36 , 85 , 4 , 43 , 52 , 2 , 38 , 1 26 , 2 

2150 DRTR 23,214,4,36,85,2,32,94,2 

2 1 68 DRTR 5 1 , 97 , 1 2 , 36 , 85 , 2 , 28,214,2 , 32 , 94 , 2 , 36 , 85 

,2,38,126,16 

2 1 70 DRTR 48 ,127,2,43, 52 , 2 , 48 , 127,4 , 38 , 1 26 , 4 

1 1 7! r i 

2130 -REM 7 

2190 DRTR 32 , 94 , 4 , 38 , 1 26 , 2 , 34 , 75 , 2 

2200 DRTR 38 , 1 26 ,4,32, 94 , 2 , 34 , 75 , 2 

22 1 DRTR 45 , 1 98 , 4 , 38 , 1 26 ,2,43, 52 , 2 

2220 DRTR 28, 214,4, 45, 198, 2, 38 . 12fi . 2 

2230 DRTR 27 , 56 , 4 , 43 , 52,2 , 45 , 1 98 , 2 

2240 DRTR 43 , 52 , 4 , 43 , 52 , 2 , 38 , J. 26 , 2 

2250 DRTR 28 , 2 1 4 , 4 , 34 , 75 , 2 , 32 , 94 , 2 

2260 DRTR 38 , 1 26 , 4 , 28 , 2 1 4,2, 27 . 56 . 2 

2270 REM 8 

2280 DRTR 34 , 75 , 8 , 28 ,214,4, 57 , 1 72 , 8 , 32 , 94 , ft , 54 , 1 1 

1,4 

2290 DRTR 28 , 2 1 4 , 2 , 57 , 1 72 , 4 , 27 , 56 , 2 , 28 , 2 1 4 . 2 . 2R . 2 

14,2, 32 , 94,2 , 27 , 56 , 2 

2300 DRTR 34,75,2 , 23 , 2 14,2 , 33 , 1 26 , 2 , 32 , 94 ,2.43.52 

, 2 , 34 , 75 , 2 , 45 , 1 98 , 2 , 28 , 2 1 4 , 2 

231Q REM 9 

2320 DRTR 51,97 , 4 , 32 , 94 , 2,28,21 4 , 2 

2380 DRTR 25 , 1 77 , 4 , 32 , 94 , 2 , 34 , 75 , 2 

2340 DRTR 51,97,12 

2350 DRTR 32 , 94 , 2 , 36 , 85 , 2 , 38 , 1 26 , 2 , 32 , 94 , 2 , 36 , 85 . 

2 , 32 , 94 ,2 

2360 DRTR 43 , 52 , 4 , 36 , 85 , 2 , 38 , 1 26 , 2 , 28 , 2 J 4 . 4 . flfi . R5 

,2,33, 126,2 

2870 DRTR 5 1 , 97 , 4 , 48 , 52 . 2 . :";6 . R!*; , 2 

2380 REM 18 

2390 DRTR 45 , 1 93 , 2 , 38 , 1 26 , 4 , 43 , 52 , 2 , 38 , 1 26 , 2 , 57 , 1 

72 , 4 , 43, 52, 2 

2408 DRTR 45 , 1 98 , 2 , , 8 , 4 , 43 . 52 , 2 . 45 . 1 9R . 2 . 4^ ■ ] 9!=s , 

4,51,97,2 

2410 DRTR 57,172, 16 

2428 DRTR 43 , 52 , 2 , 38 , 1 26 , 2 , 36 , 35 , 2 , 32 ,94,2,36,85, 

2, 28, 214, 2, 32, 94, 2, 36, 85, 2 
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2436 REM 11 

2440 DFlTR 57 , 1 72 , 2 , 38 , 1 26 ,16 

2450 DRTR 51 , 97, 2, 48, 127, 2, 43, 52, 2, 43, 127, 2, 38, 12 
£.2,43,52,2,48, 127,2 
2460 DRTR 51,97, 16 

2470 DflTFi 38 , 1 26 , 2 , 34 , 75 , 2 , 38 , 1 26 , 2 , 43 , 52 , 2 , 33 , 1 2 
6 , 2 , 45 , 1 98 , 2 , 43 , 52 , 2 , 38 , 1 26 , 2 
2480 REM 12 

24^0 DRTR 5 1 , 97 , 2 , 43 , 52 , 1 6 

2500 DRTR 45 , 1 98,2, 43 , 52 , 2 , 45 , 1 98 , 2,51 > 97 , 2 , 57 , 1 7 
2.2,61, 126,2,51,97,2 

25 1 DRTR 57 , 1 72 , 2 , 43 , 52 , 2 , 6 1 , 1 26 , 2 , 33 , 1 26 , 2 , 57 , 1 
72 . ? , 36 , 85 , 2 , 5 1 , 97 , 2 , 30 ,141,2 

2520 DfiTfi 45 , 1 98 , 2 , 28 ,214,2 , 43 , 52 , 2 , 25 , 1 77 , 2 , 38 , 1 
26 , 2 , 22 , 227 , 2 , 36 , 85 , 2 , 2 1 , 1 54 , 2 
2530 REM 13 

2540 DRTR 38 , 1 26 ,4,19, 63 , 2 , 34 , 75 , 2 , 76 , 252 , 8 , 30 , 1 4 
1*2. 28, 214, 2, 25, 177, 2, 22, 227, 2 
2550 IiflTR 72,1 69 , 4,21,1 54 , 2 , 25 , 1 77 , 2 
2560 DRTR 76 , 252 , 8 , 22 , 227 , 4 , 1 9 , 63 , 4 ,0,0 , 4 , 28 , 2 1 4 , 
3,45,198,4 
2570 REM 14 

2580 DRTR 43 , 52 , 4 , 28 , 2 14,2 , 32 ,94,2, 57 , 1 72 , 4 , 36 , 35 
.2,38,126,2 

2*i9Pi DRTR 28 ,214 , 1 2 , 43 , 52 , 4 , 5 1 , 97 , 4 , 48 , 1 27 , 4 
2600 DRTR 38 ,126,2, 38 , 1 26 , 4 , 43,, 52 , 2 , 48 , 127,2 , 28 , 2 
14,4,51,97,2 

26 1 DRTR 57 , 1 72 , 2 , 34 , 75 , 4 , 48, 1 27 , 2 
2620 REM 15 

2630 DRTR 51,97,4 , 32 , 94 , 4 , 38 , 1 26 , 2 , 25 , 1 77 , 4 , 34 , 75 
. '"* 

2640 DRTR 38 , 1 26 , 2 , 45 , 1 98 ,12, 32 , 94 , 2 , 34 , 75 , 2 , 38 , 1 
26,2,25, 177,4 

2650 DRTR 34 , 75 , 4 , 43 , 52 , 2 , 38 , 1 26 , 2,51 , 97 , 8 , 43 , 52 , 
4 , 34 , 75 , 4 
2660 REM 16 

2670 DRTR 5 1 , 97 , 4 ,28,214 , 4 , 43 ,127,2,34,75,4,51 , 97 
.2,57, 172,4,40,200,4 

2688 DRTR 34 , 75, 8 ,25 , 177 , 4 , 24 , 63 , 4 , 30 , 1 4 1 , 2 , 38 , 1 2 
6,4,34,75,2 

2690 DRTR 38 , 1 26 , 4 , 25 ,177 , 4 , 57 , 1 72 , 8 , 34 , 75 , 4 
2700 REM 17+ 
27 1 DRTR 30 , 1 4 1 , 8 ,51,97 , 8 , 28 , 2 1 4 , 8 , 45 , 1 98 , 3 , 25 , 1 
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77,8 

272© DATA 43,52,2,38, 126,2,36,85,2,0,9,4,38, 126.2 
, 32, 94, 2, 21 , 154, 4, 36, 85, 2 
2730 REM 18 
■ 2740 DATA 38 ,126,2,28,214,16 , 43 , 52 , 2 . 45 . i 9 A , ? , ■[ 1 , 
97,2,57, 172,4,76,252,4 

2758 DATA 72 , 1 69 , 4 , 28 , 2 1 4 , 2 , 27 , 56 , 2 , 57 , 1 72 , 4 . 2:=: . 2 
14,2,32,94,2 
2760 DATA 43 ,52,4, 36 , 35 , 2 , 38 , 1 26 ,2,51, 97 , 4,43 , 52 , 

2770 REM 19 

2780 DATA 48 ,127,4, 38 , 1 26 , 2 , 38 ,141,2. 38 . 1 26 . 4 . 28 . 

214,2,25, 177,2 

2790 DATA 68 , 1 49 , 1 2 , 28 , 2 1 4 , 2 , 24 , 69, .?.??,. 17? .? . ?P, . 

214,2, 19,63,4 

2800 DATA 64 , 1 88 , 2 , 25 , 1 77 , 4 , 57 , 1 72 , 2 . 64 , J a A . 4 ■ r-iR ■ 

126, 12,51,97,4 

2810 REM 20+ 

2820 DATA 43,52,4,51 , 97 , 4 , 36 , 85 , 2 , 38 , 1 26 , 2 , 6 1 . 1 26 

,4,43,52,2,45, 198,2 

2830 DATA 38 , 1 26 , 4 , 5 1 , 97 , 6 , 36 , 85 ,4,43.52.2.^7.1 72 

,4,45,198,2,51,97,2 

2840 DATA 38 , 126,4,57,172,4.51 .97,4. 49, , 5? . R 

2350 REM 21+ 

2860 DATA 45 , 1 98 , 8 , 38 , 1 26 , 8 , 43 , 52 , 3 , 36 , 85 , 4 . :' : i: :: ! . 1 2 

6, 16,38, 126, 16 "" ' 

5000 DATA -1,-1, - 1 
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Supersound 

Dieses Programm ist eine ganz tolle "Ton-Spielwiese". Nach RUN 
meldet sich eine Tabelle mit alien moglichen Varianten fiir jeden 
Kanal. 

VOICE 1 = Kanal 1 
VOICE 2 = Kanal 2 
VOICE 3 = Kanal 3 

Auch die Filter konnen recht einfach eingeschaltet und dimensioniert 
werden. Bestimmte Ausgang-jwerte sind eingestellt. 

Z. B. auf Kanal 440 Hz, 50% Tastverhaltnis = WITH, Sagezahn, 
ATTACK = 0,068, DECAY = 0,068, SUSTAIN = 100 und Release = 24. 
Das Gate ist abgeschaltet, man hort also nichts. Um nun Voice 1 ein- 
zuschalten, gehen Sie mit dem Cursor nach unten bis iiber das Wort 
GATE (Sie sehen die weiBe AktivbOx) und driicken F1. Jetzt wird 
Voice- 1 eingeschaltet. Wenn Sie jetzt auf Dreieck umschalten wollen, 
gehen Sie wieder hoch uber das Wort Sagezahn und driicken F1. 
Driicken Sie F1 jetzt ofter, und beobachten Sie was passiert. Gehen Sie 
jetzt iiber das Wort FREQ und driicken Sie Fl ofter, F2 ofter, usw. 

Jetzt konnen Sie die VOICE 2 auch noch auf gleiche Weise einstellen 
und das Gate offnen. Sie sehen, welche Mdglichkeiten Sie haben, die 
verschiedensten Gerausche zu erzeugen. Verwenden Sie die Cursor 
Tasten und die Funktionstasten fiir Ihre Experimente. 



5 DIM AT* < .1 5 ) , DR* < 1 5 > , Wt- < 3 > 

i@ PRIHT": r Jb.V0ICE 1 VOICE £ VOICE 33" : P0 
KE650,128 

1 1 PR I NTLEFT* < H^ , 1 4 > " kF I LTER^" 

1 2 PR I HTTFlB ■:; 1 8 > " fcJSEWEGE D I E RKT I VB0X " = PR I NTTRE ( 1 8 
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V'MIT DEN CURSORTRSTEN" 

1 3 PR I NTTflB < 1 8 > " MRENDERN SI E D I E " = PR I NTTflB < 1 8 > " WE 
RTE 

14 PRINTTRBaSVMIT F1-F8IT 

15 FOR 3>0TO2: POKES I +CR+ 1*7,0: NEXT 
1? KK$= , '»itPrMiMBWSIl" 

29 S I =54272 : RS-832 : FL=0 ■ FH== 1 ■■ PL=2 '• PH»3 '• CR*4 ; RH=5 : 
SR=6 

25 CL-2 1 : CH=22 : RF=23 : M0=24 

30 FOR I =0TO3 : READ W* a > = NEXT : FOR I =0TO 1 5 '• REfiDRT* < I > 
: NEXT 

32 FOR I =OTO 1 5 : RERBDRf Q > = NEXT 

40 FOR I =QT02 : POKERS+FL+ 1 *7 ..214: POKERS+FH+ 1 #7 , 28 ■■ P 

OKERS+PL+ I #7 , : POKERS+PH+ I #7 , 8 

45 POKES I +CR+ 1*7,0 

50 POKERS+CR+ I *7 , 32 : POKERS+RB+ I *7 , 96 ; POKERS+SR+ I * 

7, 255: NEXT 

60 FOR I =CLTORF '• POKERS+ 1 , O 

70 NEXT : POKERS+MO, 15 •' REM****#****#**#***#**#*SPRE 

TER E I NSCHRLTEN**************** 

80 VX=0 : VV=0 

100 GOSUB50000 

110 GOSUB55000 

1 20 ONVV+ 1 GOTO200 , 306 , 400 , 500 , GZZ , 70S , 800 , 900 , 1 0O 

0,1100 

1 25 ONV V--900T0 1 200 , 1 300 , 1 400 , 1 500 , 1 600 , 1 700 , 1 800 , 

1 900 , 2000 

130 TX=VX = TV=VV 

1 35 I FK*« " »" THENVX=VX+ 1 : I FVX>2THENVX==0 

1 40 I FK** " 1!" THENVX=VX~ 1 = I FVX-C0THENVX-2 

1 50 I FK*« " :«" THEN W= VV+ 1 : I F VV> 1 8THEN VV=0 

1 60 I FK*"= " 1" THEN W-W- 1 : I F VVOTHEN VV= 1 8 

1 62 PR I NT " S" LEFT* < H* , TV+2 > TRB <. TX* 1 3 > ; 

164 I =TX : ONT V+ 1 GOSUB60030 , 6OO50 , 60O7O , 60080 , 60 1 00 
, 60 1 20 , 60 1 40 , 60 1 60 , 60 1 63 , 60 1 66 

165 IFTVO0THEN170 

166 PRINTLEFT*<H$,TV+4> 

1 67 ONTV-9GOSUB60 1 90 , 602 1 , 60230 , 60240 , 60250 ,6026 
0, 60270, 60280, 60290 

170 GOTO 120 

200 PR I NTLEFT* < H$ , V V+2 > TAB < VX* 1 3 > " IFREQH" 

210 GOSUB20000 

220 IFJ<5THEN130 
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225 F=PEEK < RS+FL+ VX*7 ':> +PEEK <. R3+FH+VX*7 > #256 

230 IFJ-5THENF-F+1 

235 IFJ=6THENF=F+16 

240 IFJ=7THENF=F+256 

245 IFJ=8THENF=F+4096 

25Q IFJ=9THENF=F~1 

255 IFJ«10THENF*F-16 

260 IFJ=llTHENF»F-256 

265 IFJ=12THENF=F"4096 

270 IFF<0THEHF=0 

275 IFF>65535THENF=65535 

280 HF=IHT<F/256> :LF=F-HF*256 

290 P0KER8+FL+VX*7,LF 

292 P0KESI+FL+VX*7,LF 

295 P0KERS+FH+VX#7,HF 

297 PQKESI+FH+VX*7,HF 

299 TX=VX : TV==W : GOTO 162 

300 PR I NTLEFT* <-. H$ , V V+2 > TAB < VX# 1 3 ) " IN I DTI-H" 
310 GOSUB20000 

320 IF..K5THEN130 

325 F=PEEK <. RS+PL+ VX#7 > + ( PEEK. < RS+PH+ VX*7 > PHD < 1 5 > ) * 

256 

330 1FJ=5THEHF=F+1 

335 IFJ=6THENF=F+16 

340 IFJ=7THEHF=F+256 

345 IFJ=3THENF=F+1024 

350 IFJ=9THEHF=F~1 

355 1FJ=10THEHF=F-16 

360 IFJ=llTHEHF=F-256 

365 IFJ=12THENF»F-1024 

370 IFF<0THEHF=i3 

375 I FF>4095THENF=4095 

380 HF-INKF/256) = LF=F-HF*256 

390 P0KERS+PL+VX*7,LF 

392 P0KE3I+PL+VX*7,LF 

395 P0KERS+PH+VX*7, HF 

397 POKES I +PH+VX#7 , HF 

399 TX= VX ■■ TV= VV '• GOTO 1 62 

400 PR I NTLEFT* < H* , VY+2 > TAB < VX* 1 3 > .: 

405 PR I NT " II" W$ < LOG < PEEK C RS+VX#7+CR > RHD240 > /LOG < 2 

)-3.5)"T 

410 GOSUE20000 

420 IFJOTHEN130 
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43© B«FEEK<RS+VX*7+CR> : fl=BRNB240 

440 I FK*= " ■" THENfl=fi/2 = I Ffl-8THENR= 1 28 

450 I FK*= " B" THENfl-fl#2 : I Ffl=256THENfl= 1 6 

460 B= < BAND 1 5 > ORR : POKERS+ VX*7+CR .■ B 

470 PQKESI+VX*7+CR,B 

499 TX= VX : TV- W = GOTO 1 62 

508 PR I NTLEFT* <. H* , VV+2 > TflB < VX* 1 3 > " UfiTTflCKrT 

510 GOSUB20000 

520 IFJ<5THEN130 



R~BflNB240 

IFR=-16THENR=240 

IFfl=256THEHfl=0 



530 B=PEEK (. RS+ VX*7+RB !> 

540 I FK*= " ■" THENfl=fl- 1 6 : 

550 I FK*= " ■" THENfl*fl+ 1 6 : 

560 B= >: BAND 1 5 > ORR : PQKERS+ VX*7+RB , B 

570 POKES I +VX*7+RB , B 

599 TX=VX : TV=VV ■• GOTO 1 62 

600 PR I NTLEFT* < H* , VV+2 > TflB < VX* 1 3 > " ■tDECRVn" 
6 1 8 GOSUB2000O 

620 IF-K5THEN130 

630 B=PEEK < RS+ VX*7+RB > ' R-BflND 1 5 

640 I FK*= " ■" THENfl=fl~ 1 : I FR=- 1 THENfi= 15 

650 IFK*="ITTHENR-R+1 : IFfi*16THENfl=0 

66Q B- < BRHB240 > ORR = POKERS+ VX*7+RD .. B 

670 P0KESI+VX*7+RB,B 

699 TX= VX : TV=VV : GOTO 1 62 

700 PR I NTLEFT* < H$ , VV+2 > TRB < VX* 1 3 > " BBUSTfl I NH" 
710 GOSUB20000 

720 IF.K5THEN130 



fl=BfiNB240 

IFfl=-16THENfl=240 

IFfl=256THENfl«0 



730 B«PEEK<RS+VX*7+SR> 

740 IFK*="m"THENfl=fl-16 

750 I FK*= " ■" THENfl=fl+ 1 6 : 

760 B» < BAND 1 5 > ORR : POKERS+ VX*7+SR , E 

770 P0KESI+VX*7+SR,B 

799 TX=VX = TV= W : GOTO 1 62 

800 PR I NTLEFT* C H* , VV+2 > TRB < VX* 13V IRELERSEH" 
810 GOSUB20000 

820 IF.K5THEN130 

830 B=PEEK<RS+VX*7+SR> • R-BRHH15 

840 IFK*="B"THENfl*fl-l:IFfl*-lTHENfl=I5 

350 I Fl<*= " ST THENfl=R+ 1 •■ I FR= 1 6THENR-0 

860 B= •:'. BRNB240 > ORR : P0KER3+VX*7+SR , B 

370 POKES I +VX*7+SR , B 

399 TX=VX = TV=VV : GOTO 1 62 

900 PR I NTLEFT* < H* , VV+2 > TRB ( VX* 1 3 > " fflGRTEH" 



205 



918 GOSUB28000 

920 IFJOTHEN139 

930 B=PEEK<RS+VX#7+CR) : R^ERHDl 

940 I FK*= " ■" THENfl-NOT < R > AND 1 

950 B=<BflND234)0Rfi : P0KERS+VX*7+CR., E 

960 P0KESI+VX*7+CR,E 

999 TX=VX : TV=VV : GOTO 1 62 

1 @0@ PR I NTLEFT* < H* .■ VV+2 > TAB < VX* 1 3 > " IF: I UGH" 

1010 GO3UB20000 

1020 IF-K5THEH130 

1030 B-PEEK<RS+VX*7+CR::' :fl=BflHB4 

1 840 I FK*= " SB" THENR=NOT '•. fi > RND4 

1 050 B= < BAND25 1 > ORfl : POKERS+ VX*7-i-CR > E 

1060 P0KESI+VX*7+CR..B 

1 099 TX= VX = TV=VV ■■ GOTO 1 62 

1 1 00 PR I NTLEFT* < H* > VV+2 > TRB '■ VX* 1 3 > " ■SYNCS" 
111 GOSUB20000 

1120 IFJ<5THEN139 

1 1 30 B-PEEK ( RS+VX*7+CR > : R-EANB2 

1 1 40 I FK*= "Hi" THENfi=NOT < A ) ANE2 

1 1 50 B= '■■ BAND253 > ORfl • P0KERS+VX*7+CR , B 

1 1 6S POKES I +VX*7+CR , E 

1 1 99 TX=VX : TV* VV : GOTO 1 62 

1 200 PR I NTLEFT* C H* , VV+5 ) " IFREQIT 
1210 GOSUB20000 

1220 XF.J-C5THEN130 

1225 F=PEEK(RS+CH>*S-KPEEK(RS+C!...)AHE(7) > 

1 230 I F J*5THENF=F+ 1 

1235 IFJ~6THEHF-F+16 

1240 IFJ=7THENF=F+256 

1245 IFJ=8THEHF=F+1924 . 

1250 IFJ=9THENF=F-1 

1255 IFJ=10THENF=F-1S 

1 260 I F J= 1 1 THENF=F-256 

1265 IFJ=12THENF=F-1@24 

1270 IFF-C0THENF-3 

1275 IFF>2S47THENF=2047 

1 280 HF= I NT <: F/'3 > • LF=F-HF*8 

1290 P 1< E R S + C L .. L F 

1292 POKESI+CL,LF 

1295 POKERS+CH..HF 

1297 POKESI+CH,HF 
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GOTO 162 

1 360 PR I NTLEFT* < H* , VV+5 > " ■RESONANCES" 
1310 GOSUE20000 
1320 1F..K5THEH130 
1336 B=PEEK<RS+RF>:fl=BfiND240 
1 340 I F!<*= " H" THENfl=R- 1 6 : I Ffl=- 1 6THENfl=240 
1 350 I FK*= " IB" THENfl=fl+ 16=1 Ffi=256THENfl=0 
1 360 B~ < BAND 1 5 > ORR = P0KER3+RF , B 
1 370 POKE <■:. S I +RF > , PEEK < RS+RF > 

1399 TX=VX : TV=VV : GOTO 162 

1 400 PR I NTLEFT* (. H* , VV+5 > " lfv'0 1 CE in" 
1410 GO3UB20000 

1420 1F.K5THEN130 

1 430 B=PEEK < RS+RF > : RIBAND 1 

1 440 I FK*= !l III" THENfl=NOT (. fl ) AND 1 

1 450 B= < BRND254 > ORR : POKERS+RF , B 

1460 POKESI+RF.B 

1499 TX=VX:TV=VV: GOTO 162 

1 500 PR I NTLEFT* ( H* , VV+5 > " IPv'O I CE 23" 
1510 GOSUB200O0 

1520 IF..K5THEN130 

1530 B=PEEK (. RS+RF > : fl-~BRNB2 

1 540 I FK*= " ■" THEHfl=NOT < R ) RNB2 

1 550 B= < BRND253 > ORR : POKERS+RF , B 

1560 POKESI+RF,B 

1 599 TX=VX : TV=V V : GOTO 1 62 

1 600 PR I NTLEFT* < H* , VV+5 > " WO I CE 33" 
1610 GOSUB20000 

1620 IFJ<5THEN130 

1 630 B=PEEK < RS+RF > = R=BRNB4 

1 640 I Fl<*= " ■" THENfl=NOT < fl > RNB4 

1 650 B= < BRNB25 1 > ORR = POKERS+RF , B 

1660 POKESI+RF..B 

1699 TX=VX •• TV*VV = GOTO 162 

1 700 PR I NTLEFT* <. H* , VV+5 > " IMUTE 33" 
1710 GOSUB200O0 

1720 IFJ<5THEN130 

1 730 B=PEEK < RS+MO > : fl=BRND 1 28 

1 740 I FK*= " II" THENfi=NOT < R ) FIND 1 28 

1 750 B= < BRNB 1 27 > ORR : POKERS+MO > B 

1760 POKESI+MO,B 

1 799 TX=VX : TV=> VV : GOTO 1 62 

1 800 PR I NTLEFT* < H* , VV+5 > " IHOCH PASSU" 
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1810 GOSUB2Q008 

1820 IFJ<5THEN130 

1 830 B=PEEK (. RS+MO > ■ fl=BRNB64 

1840 IFK*="B"THENfl»N0T<;fl>flND64 

1 850 B= < BAND 1 9 1 > ORR : POKERS+MO , B 

1860 POKESI+MO,B 

1 899 TX= VX : T V= W : GOTO 1 62 

1 900 PR I NTLEFT*< H$ , VV+5 ) " Iff I EFPRSSIT 
1910 GOSUB20000 

1920 IFJ<5THEH130 
1 930 B-PEEK >: RS+MO ) : fi=BRNH 1 6 
1940 IFK*-"B"THENfl=N0T<fl)RND16 
1 950 B= (. BRNB239 > ORR : POKERS+MO , B 
I960 POKESI+MO,B 

1 999 TX=VX : TV* VV = GOTO 1 62 

2000 PR I NTLEFT* < H* , VV+5 > " HBRND PRSSir 
2010 GOSUB20000 

2020 IF-K5THEN130 

2030 B=PEEK< RS+MO > = R=BRNB32 

2040 IFK*="B"THENR»N0T<FORND32 

2050 B= < BRHD223 > ORR : POKERS+MO , B 

2060 POKESI+MO,B 

2099 TX=VX = TV=V V = GOTO 1 62 

9000 DRTfi "DREIECK " , SREGEZRHN , PULSE , "RRUS 

CHEN " 

90 1 DRTR . 002 , . 008 ...016.. 024 > . 038 .. . 056 , . 068 , . 680 

9015 DRTR .1 ,.25 ,.5 . ,.8 ,1 ,3 ,5 ,"3 

II 

9020 DRTR . 006 , . 024 , . 048 , . 072 ,.114,-1 68 , . 204 , . 248 

9025 DRTR .3 ,.75 ,1.5 ,2.4 ,3 ,9 ,15 ,"24 

9999 G0T09999 

20000 GETK* = IFK*<>" "THEN20008 

20005 GETK* '■ I FK*= " " THEN2O005 

200 1 J=0 : FOR I ■ 1 TOLEN < KKf ) : I FK$=M I D* < KK* ,1,1 > THEN 

J=I 

20020 NEXT 

20038 IFJ-0THEN20000 

29999 RETURN 

50000 FOR I aFLTOMO : POKES I + 1 , PEEK >■. RS+ 1 > : NEXT : RETURN 
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55009 FORI=0TQ2-'PRINT"M" :F0RJ=1T0'18 

55010 PRlNTTAEa*13>.; 

55028 ONJGO8UB60830 , 60050 .. 60070 > 60030 .60100 .. 60 1 20 

, 60140 , 60 160 , 60 1 63 , 60 1 66 

55S30 NEXT: NEXT 

55040 PR I NT " M»" : FOR I = 1 T09 

55050 ON I GOSUB60 1 90 , 602 1 , 68230 , 60240 > 60250 .. 60260 

.. 60270.. 60238.. 60290 

55078 NEXT 

55880 RETURN 

60080 REM READ IT 

68038 PRINT"FREQ" .: 

60840 F= < PEEK. < RS+FL+ 1 *7 > +PEEK < RS+FH+ 1 #7 > #236 > /2 T2 

4*1E6 

60045 PR I NTLEFT* C STR* < F > + " " , 7 > '• RETURN 

60050 PR I NT" WIDTH"; 

60860 F~ < PEEK < RS+PL+ 1 #7 > +PEEK < RS+PH+ I #7 > #256 > .•-'40 . 

96 

68065 PR I NTLEFT* •'. STR* < F > + " " ,6): RETURN 

60070 PR I NTU* ( LOG < PEEK C R3+ 1 *7+CR > ANB240 > /LOG < 2 > ~3 

. 5.::- •• RETURN 

60880 PR I NT" ATTACK "J 

60098 PR I NT AT* < < PEEK < RS+AD+ 1 #7 > AND248 > / 16)= RETURN 

60100 PRINT"BECAV " .; 

68 110 PR I NTBR* < PEEK >'. RS+ AD+ 1 #7 > AND 1 5 > : RETURN 

60 1 28 PR I NT " SUSTA I N " i 

60 1 30 PR I NTLEFT* (. STR* < < PEEK < RS+SR+ 1 *7 > AND248 > / 1 6/ 

15*180::' + " ",5:s = RETURN 

60140 PR I. NT "RELEASE " .: 

68 1 50 PR I NTDR* < PEEK C RS+SR+ 1 #7 > AND 15): RETURN 

68160 PR I NT "GATE"; 

60161 K*=" " : IFPEEK'::RS+CR+I#7>AND1THENK*=" ON" 

60 1 62 PR I NTK* = RETURN 

60163 PRI.NT"RING": 

601.64 K*=" " •• IFPEEK<R3+CR+I*7>ANB4THENK*==' 1 ON" 

60165 PR I NTK*: RETURN 

60166 PRINT"SVNC"-.; 

60167 K*=" " : IFPEEK<RS+CR+I#7::'ANn2THENK*=" ON" 

60 1 68 PR I NTK* '• RETURN 
60170 NEXT 

60190 PRINT'TREQ"; 

60 1 95 F=<. PEEK < RS+CH •' #8+ < PEEK (. RS+CL ) AND7 > > #5 . 8+30 
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68280 PRINTLEFT*<STR*<F>+" ",6> 

60205 RETURN 

602 1 PR I NT " RESONANCE " .: 

60220 PRINT<PEEK<RS+RF>flND240>/'16 l, ll " 

60225 RETURN 

60238 PR I NT "VOICE 1"; 

68235 K*= " " : I FPEEK < RS+RF > AND 1 THENK*= " ON " 

60237 PR I NTK* : RETURN 

68240 PR I NT "VOICE 2".: 

60245 K*=" ":lFPEEK<RS+RF>flND2THENK*a" ON" 

60247 PR I NTK* : RETURN 

68250 PR I NT "VOICE 3"; 

60255 K*=" ":IFPEEKCRS+RF>flND4THENK*a" ON" 

60257 PR I NTK* : RETURN 

60260 PR I NT "MUTE 3"; 

60265 l<*=" " •• I FPEEK < RS+MO > AND 123THENK*"" ON" 

60267 PR I NTK*: RETURN 

60270 PRINT "HIGH PASS"; 

60275 K*~ " " : I FPEEK C RS+MO > AND64THENK*- " ON " 

60277 PR I NTK* '• RETURN 

60280 PR I NT "LOW PRSS"; 

60285 K*= " " •■ I FPEEK < RS+MO > AND 1 6THENK** " ON " 

60287 PR I NTK*: RETURN 

6029O PR-INT "BAND PASS"; 

68295 K#=" "■■' I FPEEK < RS+MO )nND32THENK*«" ON" 

60297 PR I NTK* 

60300 RETURN 
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Literaturnachweis 

und 
Quellenverzeichnis 



Literaturnachweis und Quellenverzeichnis 

1 . Commodore Users Guide, Commodore 

2. Commodore Programmer's Reference Guide 

3. ELCOMP Artikel von Gerhard Conrads (BASIC Module) 

4. Gliicksrad, Peter Knott, ELCOMP Fachzeitschrift fiir Microcomputer 

5. Diskettenbibliothek, Michael Bauer 

6. Beherrrschen Sie Ihren Commodore 64, Hofacker Verlag 

7. Public Domain Inc. Software 

8. Polklive Terminal Club, Public Domain Software 
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NOTIZEN 
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Anhang 



Rund urn Ihren Commodore-64 

Fur denjenigen, der gerne seinen Commodore 64 erweitern mochte oder 
Peripherie selbst anschlieBen will, hat die Fa. Ing. W. Hofacker GmbH 
ein umfangreiches Stecker- und Platinenprogramm bereitgestellt. 
Anhand der nachfolgenden Skizze konnen Sie die entsprechenden 
Stecker identifizieren und deren Bestell-Nr. und Preis ermitteln. Alle 
Stecker haben wir fiir Sie auf Lager (Zwischenverkauf vorbehalten). 

Ganz besonders interessant ist das preiswerte Erweiterungs-System fiir 
den Expansionsport des C-64. 

Wer selbst zusatzliche I/O, ROM/RAM Erweiterungen oder Host- 
Rechner anschlieBen mochte, braucht diese Platinen. 



Das System besteht aus zwei Platinen: 
Best.-Nr. 4992 Expanisonsplatine (Bausatz) 



99, - DM 



4 SteckplStze fur 
Experimentier- 
karten oder 

ROM-Module etc 



Am Rand ist 

Platz fur einige IC-Sockel 

vorgesehen. 

Hier wird die 
Karte in den 
Modul-Steckplatz eingesetzt 




Sie dient in erster Linie dazu, urn vier Experimentierplatinen vom Typ 
No. 4970 oder ROM Moduln oder andere Erweiterungsbausteine gleich- 
zeitig an den ExpansionsanschluB des C-64 zu stecken. Neben den 
Steckplatzen ist noch ein Experimentierfeld fiir einige IC's vorgesehen. 
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2 Stecker sind im Preis inbegriffen. 
Best.-Nr. 4970 Experimentierplatine 



39, - DM 




Diese Platine erlaubt Ihnen den Aufbau von eigenen Systemer- 
weiterungen wie z. B. weitere l/O-Bausteine, zusatzliche Schnittstellen, 
RAM oder ROM-Erweiterungen u. v. a. mehr. 
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Die Platine ist durchkontaktiert, Masseleitung und +5V sind heraus- 
gefiihrt. Im einfachsten Falle laBt sich die Platine auch als Stecker ver- 
wenden. 
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MACROFIRE 

Der Macro-Assembler fiir den Commodore-64 von HOFACKER 

Ein extrem leistungsfahiges Werkzeug fiir den Programmentwickler. 
Sehr hohe Geschwindigkeit. Obersetzt ca. 10K Quelltext in 3 — 4 
Sekunden. 

Dieser Assembler wurde weltweit bereits mehrere hundert Mai verkauft 
und wird bei fiihrenden US-Softwarefimren in der System- und An- 
wendersoftwareentwickiung eingesetzt. 

Das Paket besteht aus einem Editor (ahnlich unserem Wortprozessor 
BLIZTEXT), dem Assembler und einem komfortablen Maschinen- 
sprachen-Monitor. 

Das Paket ist integriert. Sie erreichen den Assembler oder den Monitor 
vom Editor aus iiber einen Tastendruck. Es wird in drei Durchgangen 
ubersetzt. Bis zu 1000 Labels konnen vereinbart werden. Voile Include- 
Funktion auf Cassette oder Diskette. Sehr komfortable Anwender- 
fiihrung, ca. 45 Kommandos im Editor. Alle Commodore-Disketten und 
Cassetten l/O-Befehle werden unterstiitzt. Unseren Kenntnissen nach 
einer der leistungsfahigsten Editor/ Assembler-Pakete weltweit. 

Lieferung erfolgt vorerst mit englischem Manual. Ein deutsches Hand- 
buch wird nachgereicht. Eine einmalige, an die Person gebundene 
Benutzerlizenz kostet 199,— incl. MwSt. 

Best.-Nr. 4964 199,- DM 



216 



I 



\ 



BLIZTEXT TM 

Nach unserem Wissen einer der besten Wortprozessoren fur den C-64 



Ab sofort liefert die Firma Ing. W. Hofacker GmbH in Holzkirchen ein sehr leistungsfaniges Textverarbeitungsprogramm 
fiir den Commodore-64. 

Dieses neue Programm erlaubt es dem Anwender, ein Textsystem zu einem noch bis heute undenkbar niedrigen Preis 
zusammenzustel len . 

Erforderliche Hardware: (Minimum} 
1 Commodore-64 

1 Cassettenrecorder oder Diskette 1541 
1 Drucker, ahnlich VC1525 
1 Bildschirmmonitor oder Fernsehgerat 

Das Textverarbeitungsprogramm besteht aus drei Teilen, dem Editor, dem Formatter und einem Terminalprogramm. 
Alle drei Systemelemente sind zu einem ergonomischen und leicht zu bedienenden Softwarepaket integriert. 
Das Programm bietet dem Anwender praktisch atles, was er von einer professionelten Textverarbeitung erwarten kann. 
Hier kurz eine Zusammenfassuhg der wichtigsten Eigenschaften: 

1 .) Vol) bildschirmorientiert, horizontales und vertikales Scrolling bis zu 255 Zeichen / Zeile 

2.) Statusanzeige fiir Zeile und Zeichen in der Zeile 

3.) 27KRAM frei fiir Text im Hauptspeicher plus 4K Kopierpuffer 

4.) Echte Include-Funktion auf Cassette und Diskette. Dies bedeutet, dafi Sie Textfiles auf Diskette in den momentanen 

Text einbinden konnen. 
5.) Linker und reenter Randausgleich sowie Zentrierung sind natiirlich selbstverstandlich 
6.) Ca. 30 Kommandos stehen im Editor zur Verftigung, weitere 20 Befehle zur Textformattierung. Alle Commodore- 

Cassettfin und Disk -I/O -Befehle werden voll unterstiitzt. 
7.) Verbesserte Fehlerkanal-Leseoperation, Di rectory -Abf rage durch 2 Tastenbetatigungen 
8.) GroB- und Kleinschreibung auf praktisch alle Drucker (RS232, IEEE, IEC) 
9.) Dynamische Formattierung durch direkt in den Text eingefugte Kommandos 
10.} Komfortable Fehlermeldungen 
11.) Druckersteuerzeichen konnen individuell in den Text eingebaut werden. Somit konnen Sie auf fast alien Druckern 

unterstreichen, Breitschrift, Fettschrift usw, 
12.) Eingebauter Terminalmodus - Dies hat es bis jetzt weltweit noch nicht gegeben. Ein Terminal kann zum Senden 

und Empfangen von elektronischer Post simuliert werden. Der Modus kann auch zur Verwendung von Rechner- 

kopplungen mit anderen Persona I com putern verwendet werden. 

Ein Produkt, fur das wir Ihnen praktisch eine Zufriedenheitsgarantie geben konnten. 

Ein Manual mit ca. 70 Seiten in englischer Sprache ist verfugbar. Ein ausfiihrliches, deutsches Handbuch ist in Arbeit. 

Verfugbar auf Cassette oder Diskette. 

Der Wortprozessor "BLIZTEXT" kann sofort bestellt werden. Der Preis betragt DM 199,00 incl. Mwst. und englischem 

Handbuch. Ein deutsches Handbuch wird nachgeliefert. 

Das im Preis enthaltene Handbuch wurde mit BLIZTEXT selbst erstellt und kann fiir DM 49,00 alleine bezogen werden. 

Der Kaufpreis wird spater angerechnet. 

Ing. W. Hofacker GmbH, Tegernseer Str. 18, D^150 Holzkirchen, Tel.: 08024 / 73 31, Tlx.: 52 69 73 
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Bucher von 
HOFi 






Commodore 64 










Beherrschen Sie Ihren C-64 

Auf iiber 120 Seiten findet der 
C-64 Besitzer die Zusatzinfor- 
mationen, die er noch zu- 
satzlich zum mitgelieferten 
Handbuch benotigt. Grund- 
lagen, ein Blick ins Innerevon 
BASIC, einfacher Programm- 
schutz, Listschutz-Tricks und 
Programmiertips. Einfiihrung 
in Dateien auf Cassette und 
Diskette. Ton und Grafik, 
niitzliche Hilfsprogramme und 
hochauflosende Grafik. 
Best.-Nr. 147 19,80 DM 





64 Programme fiir den C-64 
Dieses Buch braucht jeder 
C-64 Besitzer. Sie finden darin 
Geschaftsprogramme fiir den 
C-64, niitzliche BASIC-Pro- 
gramme (Modulkiste), Progr. 
fiir den Schiiler u. Studenten 
(Mathematik und Statistik, 
Spiele, Partyprogramme, ver- 
schiedene Programme mit 
Grafik und Sound, sowie Tips 
und Tricks. 210 Seiten. 
Best.-Nr. 145 39, - DM 



BASIC Programmier-Handb. 

Dieses Buch braucht jeder 
C-64-, Atari-, Sinclair- und 
APPLE-Besitzer. Eseignetsich 
fur alle heute am Markt be- 
findlichen Personalcomputer. 
Dem Leser werden die Grund- 
elemente von BASIC mitge- 
teilt, auch soil es helfen, selbst 
Programme zu schreiben. Die 
Anfanger finden einen BASIC- 
Einsteiger Kurs. Dem er- 
fahrenen Programmierer dient 
es als Nachschlagewerk. 154 S. 
Best.-Nr. 113 19.80 DM 




Hardware Erweiterungen fiir 
den Commodore-64 

Ein ausfiihrliches Anleitungs- 
buch fiir jeden der seinen C-64 
fiir Steuerungen und Hardware 
Experimente verwenden will. 
Verbindungen mit der AuKen- 
welt iiber den User- u. Expan- 
sion Port, Erweiterungen, viele 
Programme. 160 Seiten. 
Best.-Nr. 146 39,00 DM 



Programmmpn 




Programmieren in Maschinen- 
sprache mit dem C-64 

Einfiihrung in die 6502/10 
Maschinensprache auf dem 
C-64. Sehr viele Beispiele. Der 
gesamte Befehlssatz. Ein aus- 
gezeichnetes Buch. 200 Seiten. 
Best.-Nr. 124 29,80 DM 



218 



OF GAMES « 





Commodore-64 



[ntreduetbro to 
Machlnp Laogaa 
fo»the ; 
BASIC Programmer 



Stun D. Robert* 



The Great Book of Games 
Vol. I - 46 Games f . the C-64 

Wie programmiere ich eigene 
Spiele. Einfiihrung in Graphik, 
Tonausgabe und Bewegung 
mit sehr vielen Beispielen. 
144 Seiten (englisch). 
Best.-Nr. 182 29,80 DM 



More on the Sixtyfour (64) 
Eine echte Sensation weltweit! 
Ein Buch voll gestopft mit 
wichtigen und niitzlichen Ma- 
schinenprogr., Ein/Ausgabe 
von Text, rekursive Routinen, 
Echtzeituhr, RS-232 u. Cen- 
tronics Treiber, A/D-Wandler 
am Joystickport u. v. m. 
147 Seiten (englisch). 
Best.-Nr. 183 39,00 DM 



How to Program your C-64 
in 6502/10 Machine Language 

Einfiihrung in die 6502/10 
Maschinensprache auf dem 
C-64. Ubersetzt von Nr. 124. 
108 Seiten (englisch). 
Best.-Nr. 184 29,80 DM 



Ohne Abbildung 



Ohne Abbildung 



Ohne Abbildung 



Commodore 64 - Tune up 

Ein ausfiihrliches Anleitungs- 
buch fur jeden, der seinen 
C-64 fur Steuerungen und 
Hardware Experimente ver- 
wenden will. Obersetzt von 
Nr. 146 (englisch). 
Best.-Nr. 185 39,00 DM 



Small Business Programs for 
the Commodore-64 

Geschaftsprogramme fiir den 
Commodore 64. 120 S. (engl.) 
Best.-Nr. 186 49,00 DM 



Mehr als 29 Programme fiir 
den Commodore-64 

Eine sehr interessante Pro- 
grammsammlung fiir den C-64. 
Viele wertvolle Programme 
wie Luxus, Sprite, Editor, 
Stichwortdatei, mathem. Pro- 
gr., Lager- und Adressenver- 
waltung, Fakturierung, u. a. 
Best.-Nr. 187 29,80 DM 



Weitere Bucher folgen ! 
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Fordern Sie unseren Katalog an ! 

150 Seiten vollgepackt 
mit neuen Biichern fur 
Elektronik und Micro- 
computer. 

Software fur: 
-COMMODORE-64 

- VC-20 

- PET/CBM 
-ATARI 400/800 
-SINCLAIR 

- TRS-80 
-GENIE 
-APPLE II 
-OSBORNE 

Heute noch bestellen ! 

2 — DM in Briefmarken 
oder Vorkasse auf Post- 
scheckkonto Munchen 
15 994-807. 



Bitte unbedingt 
System angeben ! 



Ihr 



Ing. W. Hofacker GmbH 
Tegernseer Strafie 18 
D- 8150 Holzkirchen 

Telefon (08024) 7331, Telex: 526973 
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LeercassettEn fur 
microcomputer 




C-10 

Die ideale Cassetten lange fur Ihren Personalcomputer. 
"raktisch — handlich und betriebssicher 

Kassetten mit nur 10 Minuten Spieldauer (2x5 Minuten) haben sich zur Aufzeichnung von Daten 
lrn Mikrocomputerbereich bestens bewahrt. 

Vorteile der C-10 Computer Cassette vom 
HOFACKER Verlag: 



Weniger Bandsalat 

kurze Riickspulzeiten 

schnelles Auffinden von Programmen 

bessere Gleichlaufeigenschaften 

einfache Programmverwaltung 



HOFACKER Datencassette bietet 



Die C-10 
weiterhin: 

• extrem hoch aussteuerbares Bandmaterial 
(Agfa) 

• hochwertiges Cassettengehause, 5fach ver- 
schraubt 

• Tefloneinlage fiir gute Laufruhe 

• Staubdichtes Glasfenster 

Die C-10 HOFACKER Datencassette wird seit 1978 speziell fiir Microcomputeranwender produziert.. 
°ie Cassetten bieten ein HochstmaK an Betriebssicherheit beziiglich fehlerfreier Aufnahme und Wieder- 
9abe. 



Hie r eine kurze Ubersicht uber die Anzahl der Bytes, die Sie auf eine C-10 Cassette abspeichem 
konnen: 



_Computer 


Speichermoglichkeit 


Computer 


Speichermoglichkeit 


-ATARI 400/800 


16K 


APPLE 


36 K 


__Sharp M2-80 


32K 


APPLE II 


16K 


_AM\^65^ 


16K 


Heathkit 


36K 


-Jjhjo Scientific 


10K 


Kansas City Std. 


16K 


_J_HSJSCL 


16K 


KIM-1 


12K 


__Zf!S-80 Color Computer 


24K 


NASCOM 


12K 


_^deo Genie 


16K 


Exidy Sorcerer 


12K 


_ Sinclair 2X80/81 


16K 


SYM-1 


12K 



BEST ELLSCHEIN 
Menge 



Beschreibung 



1 Cassette 



1 Cassetten 



1O0 Cassetten 



Preis/DM 



3,50 



29,80 



249,00 



Gesamt 



Lieferanschrift 



Name. . 
StraRe . 
Ort . . . 



Datum Unterschrift . 



HOE 




Ing. W. Hof acker GmbH 
Tegernseerstr. 18 
D-8150 Holzkirchen 

Tel.: (0 80 24) 73 31 



Weitere interessante Biicher von Hofacker: 



Bert.-Nr. 



Titel 



Preis/DM 



Biicher in deutscher Sprsche 
aus dem Hofacker Verlag 

1 Transistor Berechnungs- und Bauanleitungsbuch — 1 . 

2 Transistor Berechnungs- und Bauanleitungsbuch - 2 . 

3 Elektronik im Auto 

4 IC-Handbuch, TTL, CMOS, Linear 

5 IC-Datenbuch, TTL, CMOS, Linear 

6 IC-Schaltungen, TTL, CMOS, Linear 

7 Elektronik Schaltungen 

8 IC-Bauanleitungs-Handbuch 

9 Feldeffekttransistoren 

10 Elektronik und Radio 

1 1 IC-NF Verstarker 

12 Beispiele integrierter Schaltungen (BIS) 

13 HEH, Hobby Elektronik Handbuch 

14 IC-Vergleichsliste 

15 Optoelektronik Handbuch . . . . , 

16 CMOSTeil 1, Einfijhrung, Entwurf, Schaltbeispiele. . 

17 CMOS Teil 2, Entwurf und Schaltbeispiele 

18 CMOS Teil 3, Entwurf und Schaltbeispiele 

19 IC-Experimentier Handbuch 

20 Operationsvertarker 

21 Digitaltechnik Grundkurs 

22 Mikroprozessoren, Eigenschaften und Aufbau 

23 Elektronik Grundkurs, Kurzlehrgang Elektronik. . . . 

24 Progr. in Maschinensprache mit Z80, Band II 

25 68000 Microcomputer Einfijhrung (i. V.) . . . 

26 Mikroprozessor, Teil 2 

27 BASIC-M Anwender-HB f. 6800/09/68000 (Motorola) 

28 Lexikon + Worterbuch f. Elektr. u. Mikroprozessor. . 

29 Mikrocomputer Datenbuch 

30 Floppy Disk Selbstbau-Handbuch (i. V.) 

31 57 Programme in BASIC 

33 Microcomputer Programmierbeispiele 

34 TINY-BASIC Handbuch 

35 Der freundliche Computer 

103 Oszillographen-Handbuch 

10B Rund um den Spectrum (Progr., Tips u. Tricks) (i. V.) 

109 6502 Microcomputer Programmierung 

110 Programmierhandbuch fur PET 

1 1 1 Programmieren mit TRS-80 (Video Genie) 

112 PASCAL-Programmier-Handbuch 

113 BASIC-Programmier-Handbuch 

114 Der Microcomputer im Kleinbetrieb 

115 6809 Programmier Handbuch (i. V.) 

116 Einfiihrung 16-Bit Micorocompuler 

117 FORTRAN fur Heimcomputer 

1 18 Programmieren in Maschinensprache mit dem 6502. . 

119 Programmieren in Maschinensprache (Z80I Band I . . 

120 Anwenderprogramme fur TRS-80 u. Video Genie . . . 

121 Microsoft BASIC-Handbuch 

122 BASIC fur Fortgeschrittene 

123 lEC-Bus Handbuch 

124 Programmieren in Maschinensprache mit CBM 

127 Einfiihrung i. d. Microcmputer -Progr. mit 6800 .... 

128 Programmieren mit dem CBM 

129 ELCOMP-Leser Programmierhandbuch (i. V.) 



29.80 
1930 
. 930 
19.80 
. 9.80 
1930 
19.80 
1930 
. 9,80 
19,80 
. 9.80 
19,80 
. 9,80 
29,80 
19,80 
1930 
1930 
19,80 
19,80 
19,80 
19,80 
1930 
9,80 
2930 
39,00 
1930 
29,80 
29,80 
4930 
49,00 
39,00 
19,80 
1930 
29,80 
19,80 
2930 
29.80 
2930 
29,80 
2930 
19,80 
39,80 
49,00 
2930 
1930 
49,00 
39,00 
2930 
29,80 
39,00 
19,80 
19,80 
49,00 
29,80 
69,00 



Best-Nr. Titel _ _HeMOM 

130 Programmierbeispiele fur CBM ' 1Q 'o/ 

132 CP/M-Handbuch ™Z, 

133 Handbuch fur MS/DOS (i. V.) J?".. 

137 FORTH Handbuch g' 

139 BASIC fiir blutige Laien „ ( 

140 Progr. i. BASIC u. Maschinencode mit dem ZX81 . 2 , 

141 Progr. fur VC-20 (Spiele, Utilities, Erweiterungen) . . ^». 
143 35 Programme fiir den ZX81 .^q 

175 Astrologie auf dem ATARI 80O '„ 

8029 Z-80 Assembler-Handbuch — ■ ■ ■ • 

Biicher in englischcr Sprache 
1. Von ELCOMP Publishing, Inc.. Los Angeles, CA. 

150 Care and Feeding of the Commodore PET. ' 

151 8K Microsoft BASIC Reference Manual . ' 

152 Expansion Handbook for 6502 and 6800 ' 
154 Complex Sound Generation using the SN76477 • 
156 Small Business Programs .«', 

158 The Second Book of Ohio Scientific ' 

159 The Third Book of Ohio Scientific ', 

160 The Fourth Book of Ohio Scientific '! 

161 The Fifth Book of Ohio Scientific ' 

162 ATARI Games in BASIC 'g 

163 The Peripheral Handbook (i. V.) ft' 

164 ATARI-BASIC Learning by Using g 

166 Programming in 6502 Machinelanguage PETVCBM . 

169 How to Progr. your ATARI in 6502 Machinelanguage. 2a 

170 FORTH on the ATARI -Learning by Using l 

171 See the Future with your ATARI (Astrology) - ■ ■ • ' 

172 Hackerbook I (Tricks + Tips for your ATARI •'- »■' ■ a 

173 PD-Program Descriptions (ATARI) a„ 

174 ZX-81/TIMEX Progr. i. BASIC a. Machine Lang. * 

176 Programs + Tricks vor VIC's (i.V.) . 

177 CP/M - MBASIC and the OSBORNE (i. V ■] _ 

2. Von IJG Inc., Upland Californien 
240 TRS-80 Disk & other Mysteries ' 

245 Microsoft BASIC Decoded (TRS-80) "J 

246 BASIC Faster and Better (TRS30) ' 

247 The Custom TRS-80 & other Mysteries ' 

680 The Custom Apple & other Mysteries j 

681 Machine Language Disk l/0(TflS-8Q). - - - - 

Riesenprogrammsammlung in BASIC 

8048 BASIC Software Vol. VI !? 

8049 BASIC Software Vol. VII g 

8050 BASIC Software Vol. I g 

8051 BASIC Software Vol. II 

8052 BASIC Software Vol. Ill , 

8053 BASIC Software Vol. IV : 

8054 BASIC Software Vol. V j_- ' 

Der Hofacker Verlag produziert und vertreibt neben einer 
groBen Auswahl an Fachbuchern fur Elektronik und 
computertechnik noch: 

- Leerplatinen und Bauanleitungen fiir Zusatzeinrichtungen 
Ihren Personalcomputer, sowie 

- Programme (Software) fiir die bedeutenden Personalcomp 
(i. V. bedeutet: Buch ist in Vorbereitung) ^ _ ^, 
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HOLZKIRCHEN 



SINGAPORE 



ISBN 3-88963-145-2 




